Anfang:
InputBox, Eingabe, Ordner verschieben und umbenennen,
Welcher Ordner?, , 
400, 110
   if ErrorLevel <> 0
     {
     MsgBox, Der Vorgang wurde agbebrochen.
     ExitApp
     }

   IfNotExist, Quellpfad\%Eingabe% 
     {
     MsgBox, Diesen Ordner gibt es nicht.
     Goto, Anfang
     }

   else
     Loop, Quellpfad\%Eingabe%,2,1
     {
     FileCopyDir, Quellpfad\%Eingabe%, Zielpfad\%Eingabe%, 0
     FileMoveDir, Quellpfad\%Eingabe%, Quellpfad\bearbeitet%Eingabe%, R
     }

Goto, Anfang