try 
	tell application "Finder" 
		activate 
		set xDateien to (selection) as alias list 
		repeat with x from 1 to count of xDateien 
			tell application "System Events" to set xTyp to (get class of item (xDateien as text)) 
			if xTyp = file then 
				move xDateien to xOrdner 
			else 
				display dialog "ist keine Datei" 
			end if 
		end repeat 
	end tell 
on error errMsg number errNum 
	if errNum is -15267 then 
		display dialog "schon vorhanden" 
	end if 
end try 

on error errMsg number errNum 
  if errNum is -15267 then 
    display dialog "schon vorhanden" 
  else 
    activate me 
    display dialog errMsg 
  end if 
end try 

set xOrdner to (choose folder) as Unicode text 
 
try 
  tell application "Finder" 
    activate 
    set xDateien to selection as alias list 
    repeat with x from 1 to count of xDateien 
      set xTyp to (get class of item (item x of xDateien)) 
      if xTyp = document file then 
        move item x of xDateien to xOrdner 
      else 
        display dialog "ist keine Datei" 
      end if 
    end repeat 
  end tell 
on error errMsg number errNum 
  if errNum is -15267 then 
    activate me 
    display dialog "schon vorhanden" 
  end if 
end try 

move item x of xDateien to xOrdner with replacing 

set xOrdner to {"Pfad:"} as Unicode text 
 
try 
	tell application "Finder" 
		activate 
		set xDateien to selection as alias list 
		repeat with x from 1 to count of xDateien 
			set xTyp to (get class of item (item x of xDateien)) 
			if xTyp = document file then 
				set dies to (item x of xDateien as text) 
			else 
				display dialog "dies ist keine Datei" 
			end if 
			try 
				move dies to xOrdner 
			on error 
				display dialog dies & " \n\nist schon vorhanden" buttons "OK" default button 1 
			end try 
		end repeat 
	end tell 
end try