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!

Fragen / Kommentare


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

✍anonym
03.05.2016 19:55
User: max 
ähm, hilfe?

✍anonym
18.08.2009 19:05
User: dfed 
super, ganau das was ich gebraucht habe!
  danke!

✍anonym
23.06.2009 14:25
User: mikel 
Das Script funktioniert prima !
  Vielen Dank !
  mikel