(DTPtechNote:1398) [AS_Finder]フルパス名を得る

[せうぞー <anonymous at unknown-host>]

:区切りと/区切り（POSIX Path）が選べます

on open of theFiles
	tell application "Finder"
		activate
		repeat with i in theFiles
			display dialog "フルパス名は" default answer (i as Unicode text) buttons {"キャンセル", "POSIX Path", "OK"} default button "OK"
			if button returned of result is "POSIX Path" then
				set P_path to (quoted form of POSIX path of contents of i) as Unicode text
				display dialog "POSIX Path名は" default answer P_path buttons {"キャンセル", "OK"} default button "OK"
			end if
		end repeat
	end tell
end open