Script zum verschieben/umbenennen eines kompletten Verzeichnisses.
Die Zugriffsrechte werden ebenfalls mit verschoben, wenn dies auf der selben Partition passiert.

moveFolder.vbs

ret = 0 'Erfolg = 0, Fehler <>0
SourceFolder = "D:\projektetest\source"
TargetFolder = "D:\projektetest\target" 
 
ret = MoveDir(SourceFolder,TargetFolder)
 
If ret <> 0 THEN
wscript.echo "Fehler: " & ret
End If
 
 
'---------------------------------------------------------------
Function MoveDir(Source,Target)
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Fehler = 0   
IF NOT objFSO.FolderExists(Source)  THEN
  WScript.Echo "Quelle : " & Source & " existiert nicht."
  MoveDir = 1
  Exit FUNCTION
End If
IF objFSO.FolderExists(Target) THEN
  WScript.Echo "Ziel   : " & target & " existiert schon."
  MoveDir = 2
  Exit FUNCTION
End If
On Error Resume Next
objFSO.MoveFolder Source,Target
IF Err.Number <> 0 THEN
objFSO.CopyFolder Source,Target
'objFSO.DeleteFolder Source
wscript.echo "Ordner lässt sich nicht verschieben, Ordner wird deshalb kopiert ."
End If
MoveDir = ERR.Number
 
End Function
'---------------------------------------------------------------

zurück