« [sortedArrayUsingSelector]並び替え(その1) | トップページ | [Illustrator用] 割注サポート文書作成 »

[プレビュー]ファイル名順にページ送りする

現時点では、こんなもんで
ポンコツ『プレビュー.app』の補完用です

ダウンロード - e38395e382a1e382a4e383abe5908de9a086e381abe9968be3818f.scpt.zip



#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#
#
#
# com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"
use framework "Foundation"
use scripting additions
property objMe : a reference to current application
property objNSString : a reference to objMe's NSString
property objNSArray : a reference to objMe's NSArray
property objNSMutableArray : a reference to objMe's NSMutableArray


try
set aliasResponse to (choose folder "画像が入っているフォルダを選んでください" with prompt "フォルダを選択してください" default location (path to desktop folder from user domain) without multiple selections allowed, invisibles and showing package contents)
on error
log "エラーしました"
return
end try


###↑で選んだフォルダを選ぶ
tell application "Preview"
launch
activate
open aliasResponse
end tell
####フォルダ内のファイルリスト
tell application "Preview"
set listPathOfEveryDocuments to path of every document as list
end tell
log listPathOfEveryDocuments
####並び替える
set ocidNSArrayM to objNSMutableArray's arrayWithArray:listPathOfEveryDocuments
set ocidNewArray to ocidNSArrayM's sortedArrayUsingSelector:("compare:")
set listNewArray to ocidNewArray as list

#####順番に開く

repeat with objFilePath in listNewArray
set strFilePath to objFilePath as text
tell application "Preview"
set objDocPath to strFilePath
tell window 1
open objDocPath
end tell
end tell
end repeat

|

« [sortedArrayUsingSelector]並び替え(その1) | トップページ | [Illustrator用] 割注サポート文書作成 »

AppleScript Preview」カテゴリの記事

AppleScript Sort」カテゴリの記事