Set fso = CreateObject("Scripting.FileSystemObject")
Set ordner = fso.GetFolder(fso.getparentfoldername(wscript.ScriptFullName))
hauptordner = ordner
MoveUp(ordner)
Sub MoveUp(ordner)
   Set dateien = ordner.Files
   For Each datei In dateien
     newname = hauptordner & "\" & datei.name
     if not fso.fileexists(newname) then datei.Move(newname)
   Next
   Set untere = ordner.SubFolders
   For Each unter In untere
     MoveUp(unter)
   Next
End Sub
wscript.echo "errythin awrait"