set myFol to choose folder with prompt "フォルダを選択"
set myFol to myFol as string
set myPage to 1
repeat with myFile in list folder myFol without invisibles
set this_item to (myFol & myFile) as alias
set FType to file type of (info for this_item)
if FType is "EPSF" then
my setEPS(myPage, myFol & myFile, 3)
else
end if
set myPage to myPage + 1
end repeat
on setEPS(myPage, inputFile, NURI)
--ここに処理
end setEPS
フォルダ選択ダイアログ
トラックバック(0)
トラックバックURL: http://www.adg7.com/mt/mt-tb.cgi/9
コメントする