on run
try
tell application "Finder" to set der_Auswahl to selection
if ((count der_Auswahl) = 1) then
set der_Auswahlpfad to my neuer_Pfad(POSIX path of (der_Auswahl as string))
else
set der_Auswahlpfad to {}
repeat with i in der_Auswahl
copy (my neuer_Pfad(POSIX path of (i as string))) to end of der_Auswahlpfad
end repeat
set {oAStID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, " "}
set der_Auswahlpfad to (der_Auswahlpfad as string)
set AppleScript's text item delimiters to (oAStID)
end if
set der_Pfad to my neuer_Pfad(POSIX path of (choose folder))
do shell script "mv " & der_Auswahlpfad & " " & der_Pfad
on error
beep
end try
end run
on neuer_Pfad(lokaler_Pfad)
set {oAStID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, "/"}
set lokaler_Pfad to text items of lokaler_Pfad
set AppleScript's text item delimiters to ("'/'")
set lokaler_Pfad to (lokaler_Pfad as string)
set AppleScript's text item delimiters to (oAStID)
set lokaler_Pfad to (((get characters 2 through ((count lokaler_Pfad)) of lokaler_Pfad) as string) & "'")
if (lokaler_Pfad ends with "/''") then
set lokaler_Pfad to (get characters 1 through ((count lokaler_Pfad) - 2) of lokaler_Pfad) as string
end if
return lokaler_Pfad
end neuer_Pfad
