Datei verschieben
23.03.2019 21:55:09
Noureddine
ich benötige wiedermal eure Hilfe!
Was mache ich hier falsch. Mein Ziel ist es, eine Datei von einen Speicherort zum anderen Speicherort zu verschieben. Der Benutzer soll noch vor Verschiebung, die Möglichkeit habe die Datei noch umzubenennen. Bis hier klappt alles wie gewollt.
Jedoch soll nur verschoben werden, wenn die Datei noch nicht im neuen Speicherort existiert.
Was mache ich hier falsch? Das Dir() funktioniert nicht und eine andere Idee habe ich leider nicht.
Ich danke euch vorab für eure Hilfe!
strSpeicherort = "E:\Users\Noureddine\Desktop\Insolvenzübersicht\Ablage\"
'Datei verschieben (Datei Explorer öffnen)
Set File = CreateObject("Scripting.FileSystemObject")
'Datei von Dateiort nach Speicherort verschieben
If Dir(File) "" Then
MsgBox "Datei existiert bereits!"
Else
File.Movefile txt_Dateiort, strSpeicherort
End If
Anzeige