[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

(DTPtechNote:1626) Re: [InDesign CS3][scripting]スクリプトインストール先


この場合、volume "hoge"がネットワークボリュームかどうか、ちゃんと調べるのをさぼってますが、普段使いには差し支えないかな、と。
最近、mount volumeなんて使っていないから、ほかにいい方法があるかもしれません。

set network_vol to "hoge" as Unicode text --ネットワークボリューム名
set server_ip to "192.168.xxx.xxx"

tell application "Finder"
	set my_disk to list disks
	if network_vol is in my_disk then
		display dialog ("ネットワークボリューム:" as Unicode text) & network_vol & return & "ステータス:接続されています"
		mount volume "afp://" & server_ip & "/"
	end if
end tell

tell application "Font Book"
	set active_collection to name of every font collection whose enabled is true
end tell
display dialog ("Font Bookでアクティブなコレクションは以下のとおりです" as Unicode text) & return & return & my as_join(return, active_collection)

to as_join(thedelimit, theList)
	set oldDelim to AppleScript's text item delimiters
	set AppleScript's text item delimiters to thedelimit
	set tmpstr to theList as text
	set AppleScript's text item delimiters to oldDelim
	return tmpstr
end as_join