Hi, ich will eine Datei mit einem Variablen Namen (Datum und Uhrzeit) automatisch in ein anderes Format umbenennen. Folgendes habe ich bereits gefunden, was auch funktioniert Nur wie benenne ich nun die Datei um?
Dim sPath As String
Dim sSuchmuster As String
Dim sSearchString As String
Dim Suchergebnis As String
sPath = "G:\1\1\"
sSuchmuster = "1*.txt"
sSearchString = sPath & sSuchmuster
Suchergebnis = Dir(sSearchString)
If Suchergebnis = "" Then
MsgBox "Keine Datei gefunden"
Exit Sub
End If
Dim sPath As String
Dim sSuchmuster As String
Dim sSearchString As String
Dim Suchergebnis As String
sPath = "G:\1\1\"
sSuchmuster = "1*.txt"
sSearchString = sPath & sSuchmuster
Suchergebnis = Dir(sSearchString)
If Suchergebnis = "" Then
MsgBox "Keine Datei gefunden"
Exit Sub
End If