vbscript Dateien verschieben Ersatz für Windows move

der Windows move Befehl verschiebt Dateien in einen anderen Ordner, z.B.:  

move \data\*.xls \second_q\reports\ siehe http://technet.microsoft.com/en-us/library/bb490935.aspx

 

der Windows move Befehl funktioniert aber nicht mit Unterordnern, bzw. wenn sich im Ziel bereits eine Datei befindet.

 

Abhilfe schafft folgendes VBScript:

 

Path = Wscript.Arguments(0)
Path2 = Wscript.Arguments(1)
on error resume next
error = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder(Path)
wscript.echo "move Files and Folders from " & Path & " to " & Path2

'move files
For Each file In Folder.files
wscript.echo file
file2= Path2 & file
fso.MoveFile file,Path2 & "\"
if Err.Number = 0 then
wscript.echo "OK"
else
wscript.echo "error"
error = 1
end if
Next

'move folders:
For Each Folder In Folder.SubFolders
wscript.echo Folder
fso.MoveFolder Folder,Path2 & "\"
if Err.Number = 0 then
wscript.echo "OK"
else
wscript.echo "error"
error = 1
end if 
Next

set Folder = nothing: set fso = nothing 
    if error = 0 then WScript.Quit(0)
    if error = 1 then WScript.Quit(1) 



to start the Script copy the Source in a file for example move.vbs
start the move with: cscript move.vbs source target

positive Bewertung({{pro_count}})
Beitrag bewerten:
{{percentage}} % positiv
negative Bewertung({{con_count}})

DANKE für deine Bewertung!


veröffentlicht am 21.08.2012 von Bernhard
geändert am 07.10.2016 von Bernhard



Fragen / Kommentare


(sortiert nach Bewertung / Datum) [alle Kommentare(neueste zuerst)]

✍anonym
erstellt am 03.05.2016 21:05
User: max 
ähm, hilfe?

✍anonym
erstellt am 18.08.2009 21:08
User: dfed 
super, ganau das was ich gebraucht habe!
  danke!

✍anonym
erstellt am 23.06.2009 16:06
User: mikel 
Das Script funktioniert prima !
  Vielen Dank !
  mikel

Wir verwenden Cookies, um Inhalte und Anzeigen zu personalisieren, Funktionen für soziale Medien anbieten zu können und die Zugriffe auf unsere Website zu analysieren. Außerdem geben wir Informationen zu Ihrer Nutzung unserer Website an unsere Partner für soziale Medien, Werbung und Analysen weiter. Details anzeigen.