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

Hilfe
Neues Thema
Antworten

Nach oben




