Copy funktioniert / Move nicht
09.04.2018 11:31:08
Robert
ich möchte Dateien verschieben mit folgendem Skript.
Mit myFSO.CopyFile funktioniert es, mit myFSO.MoveFile geht es nicht.
Wo liegt mein Fehler?
Vielen Dank vorab!
VG
Robert
Sub Dateien_verschieben()
Dim myFSO As Object
Dim QuellOrdner As String, ZielOrdner As String
Dim datei As String
datei = Sheets("Übersicht").Range("A6")
QuellOrdner = Sheets("Übersicht").Range("B2")
ZielOrdner = Sheets("Übersicht").Range("B3")
Application.DisplayAlerts = False
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.MoveFile QuellOrdner & datei, ZielOrdner & datei, True
Application.DisplayAlerts = True
End Sub