Dateien veschieben Ordner ist aber leer
12.11.2004 11:27:02
Claudia
mit nachsttehendem Makro verschiebe ich Dateien von einem Ordner in einen anderen und lösche anschließend die dateien in dem Ursprungsordner.
Sub verschieben()
' verschiebt die Dateien von NEU nach ARBEIT
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "C:\TS\NEU\*.*", "C:\TS\ARBEIT" ' hier den Pfad anpassen
Kill "C:\TS\NEU\*.*"
'Datei ohne speichern schließen
'ActiveWorkbook.Saved = True
'Application.Quit
End Sub
Wenn der Ursprungsordner LEER ist, bricht das Makro aber ab.
Kann mir jemand helfen, das das Makro nicht abbricht wenn der Ordner leer ist, da weitere Makros automatisch folgen.
Gruß
Caudia
Anzeige