Hallo, ich möchte eine Datei an einen anderen Ort verschieben und dann den Dateinamen mit Datum und Zeit versehen.
Ich bekomme es hin wenn ich nur das datum einfüge, aber bei datum und zeit kommt Laufzeitfehler 52 und ich verstehe nicht warum.Hoffe ihr könnt helfen.
Dim Quelle, Ziel
Dim FSO As Object
dateiname = "testdatei.txt"
'die Datei wird nach dem Import von "Quelle" nach "Ziel" verschoben
Quelle = "d:\temp\1\" & dateiname
If Dir(Quelle) = "" Then
MsgBox "Keine Dateien vorhanden!"
Else
'Ziel = "d:\temp\2\" & Date & dateiname ' so klappt es
Ziel = "d:\temp\2\" & Date & Time & dateiname ' so kommt Laufzeitfehler 52
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile Quelle, Ziel
Set FSO = Nothing
End If
|