| AppleScript名：フォルダの存在確認 |
| — Created 2017-10-31 by Takaaki Naganoya — 2017 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "AppKit" set bPath to POSIX path of (choose folder) set bExt to current application’s NSFileManager’s defaultManager()’s fileExistsAtPath:bPath isDirectory:true –> true |
| AppleScript名：フォルダの存在確認(Pure AS) |
| set aFolder to choose folder
tell application "Finder" set aRes to exists of aFolder –> true end tell |
| AppleScript名：２フォルダ間の内容比較 |
| — Created 2015-12-22 by Takaaki Naganoya — 2015 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" set aFol to (choose folder with prompt "Select Folder A") set bFol to (choose folder with prompt "Select Folder B") set aPath to POSIX path of aFol set bPath to POSIX path of bFol set aFM to current application’s NSFileManager’s defaultManager() set aRes to (aFM’s contentsEqualAtPath:aPath andPath:bPath) as boolean |
| AppleScript名：指定フォルダからカスタムアイコンを削除する v3 |
| — Created 2015-10-21by Takaaki Naganoya — 2015 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "AppKit" set aFolder to POSIX path of (choose folder with prompt "Choose Target Folder") –カスタムアイコン削除対象のフォルダ removeCustomIcon(aFolder) of me on removeCustomIcon(aFolder) set aSW to current application’s NSWorkspace’s sharedWorkspace() aSW’s setIcon:(missing value) forFile:aFolder options:0 –Erase tell application "Finder" update ((POSIX file aFolder) as alias) –Refresh State end tell end removeCustomIcon |
| AppleScript名：指定フォルダに指定アイコン画像をつける v3 |
| — Created 2015-10-21 by Takaaki Naganoya — 2015 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "AppKit" set anIconPath to POSIX path of (choose file of type {"com.apple.icns", "public.tiff"} with prompt "Choose Icon File") set aFolder to POSIX path of (choose folder with prompt "Choose Folder") setCustomIcon(anIconPath, aFolder) of me on setCustomIcon(aPath, aFolder) set aFolderPath to current application’s NSString’s stringWithString:aFolder set aURL to current application’s |NSURL|’s fileURLWithPath:aPath set aImage to current application’s NSImage’s alloc()’s initWithContentsOfURL:aURL set aSW to current application’s NSWorkspace’s sharedWorkspace() aSW’s setIcon:(missing value) forFile:aFolder options:0 –Erase tell application "Finder" update ((POSIX file aFolder) as alias) –Refresh State end tell aSW’s setIcon:aImage forFile:aFolderPath options:0 –Write tell application "Finder" update ((POSIX file aFolder) as alias) –Refresh State end tell end setCustomIcon |
