(2)
Artikel
bewerten
(82% positiv)
(9)

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