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
'---------------------------------------------------------------