Dateien verschieben in Schleife
13.03.2020 13:26:59
FrankH
ich habe einen Ordner mit Dateien, per Button werden die Dateiname in Sheet(Dateien) in Spalte 1 eingelesen.
Die Liste wird nun manuell mit weiteren Infos aufgefüllt, ein neuer Name in Spalte 3 generiert und per Button werden die Dateien umbenannt .
Nach erfolgreicher Umbenennung erscheint eine Messagebox und fragt, ob die Dateien nun verschoben werden sollen.
Bis hierher funktioniert es.
Die Dateien sollen nun entsprechend der Liste (Zeilen i) nacheinander in bestimmte Ordner verschoben werden, die Ordnernamen befinden sich in Spalte 10 und Spalte 11.
Problem ist nun, dass nur eine Datei verschoben wird, danach kommt die Meldung "Laufzeitfehler '53' Datei nicht gefunden" und der Debugger zeigt auf "FSO.MoveFile Quelle, Ziel".
Was kann es sein, warum wird nicht die nächste folgende Datei verschoben?
'Dateien verschieben
If MsgBox("Umbenennen beendet, Dateien jetzt verschieben?", vbYesNo + vbQuestion) = vbYes Then
'Da Spaltenueberschrift beginne in Zeile 2
i = 2
Quelle = Range("Ordner") & "\" & sh.Cells(i, 3)
If Dir(Quelle) = "" Then
MsgBox "Keine Dateien vorhanden!"
Else
Set sh = Sheets("Dateien")
Ziel = "C:\Testordner2\" & sh.Cells(i, 10) & "\" & sh.Cells(i, 11) & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Do
FSO.MoveFile Quelle, Ziel
'Set FSO = Nothing
i = i + 1
Loop Until Range("Ordner") = ""
MsgBox "Dateien wurden verschoben"
End If
End If