vbscript Dateien verschieben Ersatz für Windows move
a much better move function then the build in Windows move. This vbscript tries to move each single file / folder. Files or Folders are ignored if they exists on the target
bewerten |
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
letzte Änderung dieses Artikels: 07.10.2016 09:30
Kommentare
(Nr.:3) Datum:03.05.2016 21:55
Name :
max
Kommentar :ähm, hilfe?
(Nr.:2) Datum:18.08.2009 21:05
Name :
dfed
Kommentar : super, ganau das was ich gebraucht habe!
danke!
(Nr.:1) Datum:23.06.2009 16:25
Name :
mikel
Kommentar : Das Script funktioniert prima !
Vielen Dank !
mikel
Kommentar abgeben:
(kein lästiges anmelden, einfach posten!)