AppleScript で指定したURLのファイルの存在をチェックします。
次のようなコードです。
unix コマンドの curl を利用しています。
機能としては、変数 tgt で与える URL が存在すれば "alive"，存在しなければ "dead"，エラーが発生すれば "error in chkURL" を返します。
下の画像のコードを使って試してみます。
実行結果２（"http://blog.goo.ne.jp/vallie/index404.html" は存在しません）：
実行結果３（"http://bblog.goo.ne.jp/～ 自体が存在しません）：
次のようなコードです。
unix コマンドの curl を利用しています。
機能としては、変数 tgt で与える URL が存在すれば "alive"，存在しなければ "dead"，エラーが発生すれば "error in chkURL" を返します。
on chkURL(tgt)
(* URL:tgt が存在すれば "alive"，
存在しなければ "dead"，
エラーが発生すれば "error in chkURL" を返す
by vallie @ http://blog.goo.ne.jp/vallie *)
try
set ans to do shell script "curl -I " & tgt
set ans to word 3 of ans
if ans = "200" then
return "alive"
else
return "dead"
end if
on error
return "error in chkURL"
end try
end chkURL
-- Mac OS X 10.5.2 on Intel Mac mini
下の画像のコードを使って試してみます。
実行結果１（"http://blog.goo.ne.jp/vallie/" は存在します）：
実行結果２（"http://blog.goo.ne.jp/vallie/index404.html" は存在しません）：
実行結果３（"http://bblog.goo.ne.jp/～ 自体が存在しません）：
set tgt to choose file with prompt "Choose Folder ..."
--set tgt to choose folder with prompt "Choose Folder ..."
set thePath to tgt as string
set pPath to POSIX path of tgt as string
set msg to "path : " & thePath & return & "POSIX path : " & pPath
set the clipboard to msg
display dialog msg
--http://blog.goo.ne.jp/vallie/e/13e127761fc778739d1a9e7ab78fcd37