ich möchte mit einem Makro überprüfen, ob in einem Ordner eine Datei vorhanden ist.
Wenn Ja, soll diese Datei in einen bestehenden Unterordner "Alt" innerhalb dieses zu überprüfenden Ordners verschoben werden. Ich habe es mal versucht, aber mein Lösungsansatz funktioniert leider nicht:
Sub Datei_verschieben()
Dim FSO as New FileSystemObject
Dim A as File
Dim Alt as String
Dim Path as Folder
Path = "\\C:\Dateien\Neu\LEG001\"
Alt = "\\ZielURL\Files\New\LEG001\Alt\"
For Each A in Path.Files
FSO.MoveFile Alt
Next A
End Sub
Was mache ich falsch?
Ich habe gedacht, dass diese For Each Anweisung im Ordner nach der Datei sucht und wenn eine vorhanden ist in den Ordner Alt verschiebt.
Vielen Dank im Voraus.
Beste Grüße
Norbert