Ich verschiebe in einem Ordner mit zig Tausend Dateien, eine nach der anderen von A nach B. Da ich nach dem Verschieben noch einige Änderungen per Makro durchführe, dauert das ewig für so viele Files. Ich möchte also mein Makro mehrmals auf ein paar verschiedenen PC's starten.
Was mache ich allerdings, wenn das eine Makro eine der Dateien verschieben will die schon weg ist? :)
Kann man den fso.MoveFile Befehl ohne Fehlermeldung ausführen oder den Fehler umgehen und einfach weitermachen?
Script sieht so aus:
Sub MarkoVerschieben()
Dim fso As Object
Dim pStr As String
Application.DisplayAlerts = False
Start:
pStr = "XX"
Ablagepfad = "XX\OK\"
For i = 1 To 20000
myFile = Dir(pStr & Application.PathSeparator & "*.xls?")
AktuellerDateiName = pStr & Application.PathSeparator & myFile
DateiNameNeuerOrt = Ablagepfad & Application.PathSeparator & myFile
If myFile = "" Then Exit Sub
On Error GoTo Start
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile AktuellerDateiName, Ablagepfad
On Error GoTo Start
Workbooks.Open Filename:=DateiNameNeuerOrt
.... Überarbeitung der Files ....
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End Sub
Vielen Dank für eure Hilfe :)Matthias