[Applescript]スクリーンキャプチャーの設定を変える

スクリーンキャプチャの設定を変更するだけ
の
単機能スクリプト

意味あるのかなぁ...汗

--スクリーンキャプチャーの設定を変更する単機能スクリプト --保存形式と --保存先を設定します。 --実行後はログアウト＆ログインで設定が反映します。 ------ここから設定 --初期ファイルタイプ set FileType to {"bmp", "gif", "jpeg-2000", "jpeg", "pdf", "pict", "png", "psd", "sgi", "tga", "tiff"} --デフォルトのファイルタイプ set SetFileType to "png" as Unicode text ----------処理の開始 tell application "Finder" --ユーザ−のライブラリへのパスを取得 set UserPreferencesPath to path to preferences folder from user domain --設定ファイル名を指定 set ScreencaptureFile to "com.apple.screencapture.plist" as Unicode text --パスとファイル名をつなげて　設定ファイルまでのパス set ChkFileExists to UserPreferencesPath & ScreencaptureFile as Unicode text --設定ファイルがあるか？を確認 set ChkResult to exists file ChkFileExists end tell ---設定ファイルがあれば if ChkResult is true then tell application "Finder" display alert "スクリーンキャプチャの設定を変更します。" message "各設定でキャンセルをすると初期設定に戻ります。" end tell ---設定ファイルが無ければ　 else tell application "Finder" --設定ファイルが無いならファイルを作る display alert "設定ファルがありません" message "設定ファイルを作ります。" make new file at UserPreferencesPath with properties {name:ScreencaptureFile} end tell end if try tell application "Finder" activate try set FileSaveLocation to POSIX path of (choose folder with prompt "ファイルの保存先を選択してください。キャンセルするとデスクトップに設定します。") as Unicode text set CommandFileSaveLocation to "defaults write com.apple.screencapture location " & FileSaveLocation as Unicode text do shell script CommandFileSaveLocation display alert "保存先を" & FileSaveLocation & "に設定しました" on error set UserHomePath to path to home folder from user domain set UserDesktopPath to UserHomePath & "Desktop" as Unicode text set FileSaveLocation to POSIX path of UserDesktopPath as Unicode text set CommandFileSaveLocation to "defaults write com.apple.screencapture location " & FileSaveLocation as Unicode text display alert "保存先を" & FileSaveLocation & "に設定しました" message "キャンセルが選ばれたので初期設定のデスクトップに設定しました" end try end tell end try ------------------- try tell application "Finder" set chooseResult to choose from list FileType with prompt "キャンセルするとpngが設定されます。" OK button name "実行する" with title "保存ファイル形式を選びます" as Unicode text if chooseResult is false then set chooseResult to SetFileType as Unicode text set SetFileType to chooseResult as Unicode text set ComandLineFileType to "defaults write com.apple.screencapture type " & SetFileType as Unicode text do shell script ComandLineFileType display alert "ファイル形式を" & SetFileType & "に設定しました" message "キャンセルが選ばれたので初期設定の" & SetFileType & "に設定しました" as informational else set SetFileType to chooseResult as Unicode text set ComandLineFileType to "defaults write com.apple.screencapture type " & SetFileType as Unicode text do shell script ComandLineFileType display alert "ファイル形式を" & SetFileType & "に設定しました" as informational end if end tell end try tell application "Finder" display alert "設定を終了しました　ログアウト＆ログインで設定値が反映されます。" end tell

「ScreenCaptureSetting.scpt.zip」をダウンロード



「ScreenCaptureSetting.scpt.txt」をダウンロード