Ich möchte im WinExplorer ausgewählte Dateien und Ordner (mit sämtlichen Inhalt, also Unterordner, Dateien...) auf ein VBScript ziehen. Dann soll alles in den Ordner "D:\gelöscht\" verschoben werden. Für Dateien habe ich es hinbekommen, aber wie macht man das mit den Ordnern?
Es sollen ja Dateien und Ordner gemeinsam auf das Script gezogen werden. Was muss ich da tun?
Vielen Dank für die Hilfe im Voraus!!
Viele Grüße, je77
Dim s,fso,args,quelldateipfad Set s=CreateObject("Wscript.Shell") Set fso=CreateObject("Scripting.Filesystemobject") Set args=WScript.Arguments For Each quelldateipfad in args MsgBox(quelldateipfad) fso.MoveFile quelldateipfad, "D:\gelöscht\" Next