[NSURLAttributeModificationDateKey]Finder情報の取得（ファイル）

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#com.cocolog-nifty.quicktimer.icefloe
004	#
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006	use AppleScript version "2.8"
007	use framework "Foundation"
008	use framework "UniformTypeIdentifiers"
009	use framework "AppKit"
010
011	use scripting additions
012	property refMe : a reference to current application
013
014	set appFileManager to refMe's NSFileManager's defaultManager()
015
016	set strName to (name of current application) as text
017	if strName is "osascript" then
018	tell application "Finder" to activate
019	else
020	tell current application to activate
021	end if
022	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDesktopDirectory) inDomains:(refMe's NSUserDomainMask))
023	set ocidDesktopDirPathURL to ocidURLsArray's firstObject()
024	set aliasDefaultLocation to (ocidDesktopDirPathURL's absoluteURL()) as alias
025	set listUTI to {"public.item"} as list
026	set strMes to ("ファイルを選んでください") as text
027	set strPrompt to ("ファイルを選んでください") as text
028	try
029	set aliasFilePath to (choose file strMes with prompt strPrompt default location (aliasDefaultLocation) of type listUTI with invisibles and showing package contents without multiple selections allowed) as alias
030	on error
031	log "エラーしました"
032	return "エラーしました"
033	end try
034	set strFilePath to (POSIX path of aliasFilePath) as text
035
036	set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)
037	set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()
038	set ocidFilePathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:false)
039	set ocidFileName to ocidFilePathURL's lastPathComponent()
040	#
041	set listResponse to ocidFilePathURL's getResourceValue:(reference) forKey:(refMe's NSURLContentTypeKey) |error| :(reference)
042	set ocidUTType to (item 2 of listResponse)
043	set ocidUTIArray to (ocidUTType's supertypes())'s allObjects()
044	set ocidUTTypeString to refMe's NSMutableString's alloc()'s initWithCapacity:(0)
045	repeat with itemUTI in ocidUTIArray
046	(ocidUTTypeString's appendString:(itemUTI's identifier()))
047	(ocidUTTypeString's appendString:("\n\t\t\t"))
048	end repeat
049	set ocidUTI to ocidUTType's identifier()
050	(ocidUTTypeString's appendString:(ocidUTI))
051	(ocidUTTypeString's appendString:("\n"))
052	#
053	set listResponse to ocidFilePathURL's getResourceValue:(reference) forKey:(refMe's NSURLTotalFileSizeKey) |error| :(reference)
054	set ocidTotalFileSize to (item 2 of listResponse)
055	set numLong to ocidTotalFileSize's unsignedLongLongValue()
056	set numByteUnits to 1000 as integer
057	set sizeInKB to (numLong / numByteUnits)
058	set sizeInMB to (numLong / (numByteUnits * numByteUnits))
059	set sizeInGB to (numLong / (numByteUnits * numByteUnits * numByteUnits))
060	set sizeInTB to (numLong / (numByteUnits * numByteUnits * numByteUnits * numByteUnits))
061	if (sizeInTB as integer) > 0 then
062	set strTotalFileSize to ((sizeInTB as integer) & " TB") as text
063	else if (sizeInGB as integer) > 0 then
064	set strTotalFileSize to ((sizeInGB as integer) & " GB") as text
065	else if (sizeInMB as integer) > 0 then
066	set strTotalFileSize to ((sizeInMB as integer) & " MB") as text
067	else
068	set strTotalFileSize to ((sizeInKB as integer) & " KB") as text
069	end if
070	set strRealFileSize to ((numLong as integer) & " Bytes") as text
071	#
072	set listResponse to ocidFilePathURL's getResourceValue:(reference) forKey:(refMe's NSURLTotalFileAllocatedSizeKey) |error| :(reference)
073	set ocidAllocatedSize to (item 2 of listResponse)
074	set numLong to ocidAllocatedSize's unsignedLongLongValue()
075	set numByteUnits to 1000 as integer
076	set sizeInKB to (numLong / numByteUnits)
077	set sizeInMB to (numLong / (numByteUnits * numByteUnits))
078	set sizeInGB to (numLong / (numByteUnits * numByteUnits * numByteUnits))
079	set sizeInTB to (numLong / (numByteUnits * numByteUnits * numByteUnits * numByteUnits))
080	if (sizeInTB as integer) > 0 then
081	set strAllocatedSize to ((sizeInTB as integer) & " TB") as text
082	else if (sizeInGB as integer) > 0 then
083	set strAllocatedSize to ((sizeInGB as integer) & " GB") as text
084	else if (sizeInMB as integer) > 0 then
085	set strAllocatedSize to ((sizeInMB as integer) & " MB") as text
086	else if (sizeInKB as integer) > 0 then
087	set strAllocatedSize to ((sizeInKB as integer) & " KB") as text
088	else
089	set strAllocatedSize to ((numLong as integer) & " Bytes") as text
090	end if
091	#
092	set listResponse to ocidFilePathURL's getResourceValue:(reference) forKey:(refMe's NSURLCreationDateKey) |error| :(reference)
093	set ocidCreationDate to (item 2 of listResponse)
094	set strCreationDate to (ocidCreationDate as date) as text
095	#
096	set listResponse to ocidFilePathURL's getResourceValue:(reference) forKey:(refMe's NSURLContentModificationDateKey) |error| :(reference)
097	set ocidModificationDate to (item 2 of listResponse)
098	set strModificationDate to (ocidModificationDate as date) as text
099	#
100	set listResponse to ocidFilePathURL's getResourceValue:(reference) forKey:(refMe's NSURLContentAccessDateKey) |error| :(reference)
101	set ocidAccessDate to (item 2 of listResponse)
102	set strAccessDate to (ocidAccessDate as date) as text
103	#
104	set listResponse to ocidFilePathURL's getResourceValue:(reference) forKey:(refMe's NSURLAttributeModificationDateKey) |error| :(reference)
105	set ocidAttributeDate to (item 2 of listResponse)
106	set strAttributeDate to (ocidAttributeDate as date) as text
107	#
108	set listResponse to appFileManager's attributesOfItemAtPath:(ocidFilePath) |error| :(reference)
109	set ocidAttarDict to (item 1 of listResponse)
110	set ocidOwnerAccount to ocidAttarDict's valueForKey:(refMe's NSFileOwnerAccountName)
111	set ocidGroupOwner to ocidAttarDict's valueForKey:(refMe's NSFileGroupOwnerAccountName)
112	set ocidPosixPermissionsDec to ocidAttarDict's valueForKey:(refMe's NSFilePosixPermissions)
113	#
114	set numPermissionsDec to (ocidPosixPermissionsDec as text) as number
115	set numDecNo to numPermissionsDec as number
116	set numDiv1 to (numDecNo div 8) as number
117	set numMod1 to (numDecNo mod 8) as number
118	set numDiv2 to (numDiv1 div 8) as number
119	set numMod2 to (numDiv1 mod 8) as number
120	set numDiv3 to (numDiv2 div 8) as number
121	set numMod3 to (numDiv2 mod 8) as number
122	set strOctal to (numMod3 & numMod2 & numMod1) as text
123	set numPosixPermissionsOct to strOctal as number
124
125	#
126	set ocidExtendedAttriDec to ocidAttarDict's objectForKey:("NSFileExtendedAttributes")
127	set ocidAllKeys to ocidExtendedAttriDec's allKeys()
128	set strAttarItems to (ocidAllKeys's componentsJoinedByString:("\n\t\t")) as text
129	#
130	set ocidExtendedAttriDec to ocidAttarDict's objectForKey:("NSFileExtendedAttributes")
131	set ocidAllKeys to ocidExtendedAttriDec's allKeys()
132	#
133	set boolContain to ocidAllKeys's containsObject:("com.apple.metadata:kMDItemFinderComment")
134	if boolContain is true then
135	set ocidSwiftData to ocidExtendedAttriDec's objectForKey:("com.apple.metadata:kMDItemFinderComment")
136	set appPlistSerial to refMe's NSPropertyListSerialization
137	set ocidFormat to refMe's NSPropertyListXMLFormat_v1_0
138	set ocidOption to refMe's NSPropertyListMutableContainersAndLeaves
139	set listResponse to appPlistSerial's propertyListWithData:(ocidSwiftData) options:(ocidOption) format:(ocidFormat) |error| :(reference)
140	set ocidNSSwiftDataString to (item 1 of listResponse)
141	set strFinderComment to ocidNSSwiftDataString as text
142	else
143	set strFinderComment to ""
144	end if
145
146	###########
147	set ocidOutputString to refMe's NSMutableString's alloc()'s initWithCapacity:(0)
148	(ocidOutputString's appendString:("ファイルパス名: "))
149	(ocidOutputString's appendString:(ocidFileName))
150	(ocidOutputString's appendString:("\n"))
151	(ocidOutputString's appendString:("ファイルパス: "))
152	(ocidOutputString's appendString:(ocidFilePath))
153	(ocidOutputString's appendString:("\n"))
154	(ocidOutputString's appendString:("ファイルタイプ: "))
155	(ocidOutputString's appendString:(ocidUTTypeString))
156	(ocidOutputString's appendString:("\n"))
157	(ocidOutputString's appendString:("ファイルサイズ: "))
158	(ocidOutputString's appendString:(strTotalFileSize))
159	(ocidOutputString's appendString:("\n"))
160	(ocidOutputString's appendString:("使用ディスクサイズ: "))
161	(ocidOutputString's appendString:(strAllocatedSize))
162	(ocidOutputString's appendString:("\n"))
163	(ocidOutputString's appendString:("実サイズ: "))
164	(ocidOutputString's appendString:(strRealFileSize))
165	(ocidOutputString's appendString:("\n"))
166	(ocidOutputString's appendString:("\n"))
167	(ocidOutputString's appendString:("拡張属性: "))
168	(ocidOutputString's appendString:(strAttarItems))
169	(ocidOutputString's appendString:("\n"))
170	(ocidOutputString's appendString:("\n"))
171	(ocidOutputString's appendString:("作成日: "))
172	(ocidOutputString's appendString:(strCreationDate))
173	(ocidOutputString's appendString:("\n"))
174	(ocidOutputString's appendString:("修正日: "))
175	(ocidOutputString's appendString:(strModificationDate))
176	(ocidOutputString's appendString:("\n"))
177	(ocidOutputString's appendString:("直近アクセス日: "))
178	(ocidOutputString's appendString:(strAccessDate))
179	(ocidOutputString's appendString:("\n"))
180	(ocidOutputString's appendString:("属性変更日: "))
181	(ocidOutputString's appendString:(strAttributeDate))
182	(ocidOutputString's appendString:("\n"))
183	(ocidOutputString's appendString:("\n"))
184	(ocidOutputString's appendString:("所有者: "))
185	(ocidOutputString's appendString:(ocidOwnerAccount))
186	(ocidOutputString's appendString:("\n"))
187	(ocidOutputString's appendString:("グループ: "))
188	(ocidOutputString's appendString:(ocidGroupOwner))
189	(ocidOutputString's appendString:("\n"))
190	(ocidOutputString's appendString:("アクセス権10進数: "))
191	(ocidOutputString's appendString:(numPermissionsDec as text))
192	(ocidOutputString's appendString:("\n"))
193	(ocidOutputString's appendString:("アクセス権8進数: "))
194	(ocidOutputString's appendString:(numPosixPermissionsOct as text))
195	(ocidOutputString's appendString:("\n"))
196	(ocidOutputString's appendString:("\n"))
197	(ocidOutputString's appendString:("Finderコメント: "))
198	(ocidOutputString's appendString:(strFinderComment))
199	(ocidOutputString's appendString:("\n"))
200
201	log ocidOutputString as text
202
203	##############################
204	#####ダイアログ
205	##############################
206	tell current application
207	set strName to name as text
208	end tell
209	####スクリプトメニューから実行したら
210	if strName is "osascript" then
211	tell application "Finder"
212	activate
213	end tell
214	else
215	tell current application
216	activate
217	end tell
218	end if
219	set aliasIconPath to POSIX file "/System/Library/CoreServices/Finder.app/Contents/Resources/Finder.icns" as alias
220	set strMes to "戻り値です"
221	try
222	set recordResult to (display dialog strMes with title "戻り値です" default answer (ocidOutputString as text) buttons {"クリップボードにコピー", "終了", "再実行"} default button "再実行" cancel button "終了" giving up after 20 with icon aliasIconPath without hidden answer) as record
223	on error
224	return "エラーしました"
225	end try
226	if (gave up of recordResult) is true then
227	return "時間切れです"
228	end if
229	##############################
230	#####自分自身を再実行
231	##############################
232	if button returned of recordResult is "再実行" then
233	tell application "Finder"
234	set aliasPathToMe to (path to me) as alias
235	end tell
236	run script aliasPathToMe with parameters "再実行"
237	end if
238	##############################
239	#####値のコピー
240	##############################
241	if button returned of recordResult is "クリップボードにコピー" then
242	try
243	set strText to text returned of recordResult as text
244	####ペーストボード宣言
245	set appPasteboard to refMe's NSPasteboard's generalPasteboard()
246	set ocidText to (refMe's NSString's stringWithString:(strText))
247	appPasteboard's clearContents()
248	appPasteboard's setString:(ocidText) forType:(refMe's NSPasteboardTypeString)
249	on error
250	tell application "Finder"
251	set the clipboard to strText as text
252	end tell
253	end try
254	end if
255
256
257	return ocidOutputString as text
258
259
AppleScriptで生成しました

---

[Foundation.__NSSwiftData]Finderコメントの取得（com.apple.metadata:kMDItemFinderComment）

---

AppleScript サンプルコード

【スクリプトエディタで開く】 | クリップボードへコピー

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#com.cocolog-nifty.quicktimer.icefloe
004	#
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006	use AppleScript version "2.8"
007	use framework "Foundation"
008	use framework "UniformTypeIdentifiers"
009	use framework "AppKit"
010
011	use scripting additions
012	property refMe : a reference to current application
013
014	set appFileManager to refMe's NSFileManager's defaultManager()
015
016	set strName to (name of current application) as text
017	if strName is "osascript" then
018	tell application "Finder" to activate
019	else
020	tell current application to activate
021	end if
022	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDesktopDirectory) inDomains:(refMe's NSUserDomainMask))
023	set ocidDesktopDirPathURL to ocidURLsArray's firstObject()
024	set aliasDefaultLocation to (ocidDesktopDirPathURL's absoluteURL()) as alias
025	set listUTI to {"public.item"} as list
026	set strMes to ("ファイルを選んでください") as text
027	set strPrompt to ("ファイルを選んでください") as text
028	try
029	set aliasFilePath to (choose file strMes with prompt strPrompt default location (aliasDefaultLocation) of type listUTI with invisibles and showing package contents without multiple selections allowed) as alias
030	on error
031	log "エラーしました"
032	return "エラーしました"
033	end try
034	##パス
035	set strFilePath to (POSIX path of aliasFilePath) as text
036	set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)
037	set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()
038	##アトリビュート属性の取得
039	set appFileManager to refMe's NSFileManager's defaultManager()
040	set listResponse to appFileManager's attributesOfItemAtPath:(ocidFilePath) |error| :(reference)
041	set ocidAttarDict to (item 1 of listResponse)
042	##拡張属性の取得
043	set ocidExtendedAttriDec to ocidAttarDict's objectForKey:("NSFileExtendedAttributes")
044	set ocidAllKeys to ocidExtendedAttriDec's allKeys()
045	##Finderコメントの有無をチェック
046	set boolContain to ocidAllKeys's containsObject:("com.apple.metadata:kMDItemFinderComment")
047	if boolContain is true then
048	log "Finderコメントあり"
049	else
050	return "Finder コメント無し"
051	end if
052	##Finderコメントがあるなら取得する
053	# Foundation.__NSSwiftData
054	set ocidSwiftData to ocidExtendedAttriDec's objectForKey:("com.apple.metadata:kMDItemFinderComment")
055	# NSPropertyListSerialization
056	set ocidFormat to refMe's NSPropertyListXMLFormat_v1_0
057	set appPlistSerial to refMe's NSPropertyListSerialization
058	set ocidOption to refMe's NSPropertyListMutableContainersAndLeaves
059	set listResponse to appPlistSerial's propertyListWithData:(ocidSwiftData) options:(ocidOption) format:(ocidFormat) |error| :(reference)
060	set ocidNSSwiftDataString to (item 1 of listResponse)
061	return ocidNSSwiftDataString as text
AppleScriptで生成しました

---

[NSFileAttributeKey]アクセス権（属性）を設定する

NSFileImmutable以外は使うことないかな…

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

パーミッション８進数についてはこちらを参考にしてください

[NSFilePosixPermissions]Permission MODE ８進数　１０進数 一覧

https://quicktimer.cocolog-nifty.com/icefloe/2022/10/post-ce59ea.html

パーミンション番号８進数→１０進数変換

https://quicktimer.cocolog-nifty.com/icefloe/cat76052288/index.html

*)

#com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

property refMe : a reference to current application

########################

### ファイルパス

set strFilePath to ("~/Desktop/テストファイル.txt") as text

set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)

set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()

set ocidFilePathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:false)

###空のファイル作成

set ocidBlankText to refMe's NSString's stringWithString:("")

set listDone to ocidBlankText's writeToURL:(ocidFilePathURL) atomically:true encoding:(refMe's NSUTF8StringEncoding) |error|:(reference)

###アクセス権777-->511

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

ocidAttrDict's setValue:(511) forKey:(refMe's NSFilePosixPermissions)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

if (item 1 of listDone) is false then

  set ocidNSErrorData to (item 2 of listDone)

  log "エラーコード：" & ocidNSErrorData's code() as text

  log "エラードメイン：" & ocidNSErrorData's domain() as text

  log "Description:" & ocidNSErrorData's localizedDescription() as text

  log "FailureReason:" & ocidNSErrorData's localizedFailureReason() as text

end if

####################

###フォルダに対してのアクセス権設定

set strDirPath to ("~/Desktop/テストフォルダ/") as text

set ocidDirPathStr to refMe's NSString's stringWithString:(strDirPath)

set ocidDirPath to ocidDirPathStr's stringByStandardizingPath()

set ocidDirPathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidDirPath) isDirectory:true)

###アクセス権777-->511

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

# 777-->511 755-->493 700-->448 766-->502

ocidAttrDict's setValue:(511) forKey:(refMe's NSFilePosixPermissions)

set listDone to appFileManager's createDirectoryAtURL:(ocidDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error|:(reference)

if (item 1 of listDone) is false then

  set ocidNSErrorData to (item 2 of listDone)

  log "エラーコード：" & ocidNSErrorData's code() as text

  log "エラードメイン：" & ocidNSErrorData's domain() as text

  log "Description:" & ocidNSErrorData's localizedDescription() as text

  log "FailureReason:" & ocidNSErrorData's localizedFailureReason() as text

end if

####################

###NSFileAppendOnly　追加のみ だが追加したファイルやフォルダを削除できなくなる

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

ocidAttrDict's setValue:(refMe's NSNumber's numberWithBool:true) forKey:(refMe's NSFileAppendOnly)

#ファイルに追加

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

#ディレクトリに追加

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

## return "状態確認する場合"

##解除

ocidAttrDict's setValue:(refMe's NSNumber's numberWithBool:false) forKey:(refMe's NSFileAppendOnly)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

####################

###NSFileExtensionHidden　拡張子を隠すか？だが Finderの拡張子の表示設定が優先される

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

ocidAttrDict's setValue:(refMe's NSNumber's numberWithBool:true) forKey:(refMe's NSFileExtensionHidden)

#ファイルに追加

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

#ディレクトリに追加

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

## return "状態確認する場合"

##解除

ocidAttrDict's setValue:(refMe's NSNumber's numberWithBool:false) forKey:(refMe's NSFileExtensionHidden)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

####################

###NSFileImmutable　chflagsの uchg相当　ユーザーレベル　Findeのロック

###Finder フォルダ　ファイルアイコンに鍵がつく

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

ocidAttrDict's setValue:(refMe's NSNumber's numberWithBool:true) forKey:(refMe's NSFileImmutable)

#ファイルに追加

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

#ディレクトリに追加

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

## return "状態確認する場合"

##解除

ocidAttrDict's setValue:(refMe's NSNumber's numberWithBool:false) forKey:(refMe's NSFileImmutable)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

####################

###NSFileProtectionKey　ファイルの保護のモードを指定できる

(* 設定できる値は 暗号化の方法

NSFileProtectionComplete

NSFileProtectionCompleteUnlessOpen

NSFileProtectionCompleteUntilFirstUserAuthentication

NSFileProtectionNone

NSFileProtectionCompleteWhenUserInactive

*)

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

ocidAttrDict's setValue:(refMe's NSFileProtectionCompleteUnlessOpen) forKey:(refMe's NSFileProtectionKey)

#ファイルに追加

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

#ディレクトリに追加

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

## return "状態確認する場合"

##解除

ocidAttrDict's setValue:(refMe's NSFileProtectionNone) forKey:(refMe's NSFileProtectionKey)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

return

---

[NSFileManager]Permission ファイル フォルダのアクセス権の設定

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

パーミッション８進数についてはこちらを参考にしてください

[NSFilePosixPermissions]Permission MODE ８進数　１０進数 一覧

https://quicktimer.cocolog-nifty.com/icefloe/2022/10/post-ce59ea.html

パーミンション番号８進数→１０進数変換

https://quicktimer.cocolog-nifty.com/icefloe/cat76052288/index.html

*)

#com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

property refMe : a reference to current application

########################

#### ファイルに対してのアクセス権設定

set strFilePath to ("~/Library/Mail/PersistenceInfo.plist") as text

set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)

set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()

###

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

# 777-->511 755-->493 700-->448 766-->502

ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidFilePath) |error|:(reference)

if (item 1 of listDone) is false then

  set ocidNSErrorData to (item 2 of listDone)

  log "エラーコード：" & ocidNSErrorData's code() as text

  log "エラードメイン：" & ocidNSErrorData's domain() as text

  log "Description:" & ocidNSErrorData's localizedDescription() as text

  log "FailureReason:" & ocidNSErrorData's localizedFailureReason() as text

end if

####################

###フォルダに対してのアクセス権設定

set strDirPath to ("~/Library/Mail/") as text

set ocidDirPathStr to refMe's NSString's stringWithString:(strDirPath)

set ocidDirPath to ocidDirPathStr's stringByStandardizingPath()

###

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

# 777-->511 755-->493 700-->448 766-->502

ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)

set listDone to appFileManager's setAttributes:(ocidAttrDict) ofItemAtPath:(ocidDirPath) |error|:(reference)

if (item 1 of listDone) is false then

  set ocidNSErrorData to (item 2 of listDone)

  log "エラーコード：" & ocidNSErrorData's code() as text

  log "エラードメイン：" & ocidNSErrorData's domain() as text

  log "Description:" & ocidNSErrorData's localizedDescription() as text

  log "FailureReason:" & ocidNSErrorData's localizedFailureReason() as text

end if

---

フォルダを作って新規テキストファイル

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/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 framework "AppKit"

use scripting additions

property refMe : a reference to current application

###

set strText to ("美しい日本語のテキスト") as text

set ocidStrings to refMe's NSString's stringWithString:(strText)

##

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSDesktopDirectory) inDomains:(refMe's NSUserDomainMask))

set ocidDesktopDirPathURL to ocidURLsArray's firstObject()

set ocidSaveDirPathURL to ocidDesktopDirPathURL's URLByAppendingPathComponent:("フォルダの名前")

##

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

# 777-->511 755-->493 700-->448 766-->502

ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)

set listBoolMakeDir to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error|:(reference)

###

set ocidSaveFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:("保存するファイル名.txt")

###

set listDone to ocidStrings's writeToURL:(ocidSaveFilePathURL) atomically:(true) encoding:(refMe's NSUTF8StringEncoding) |error|:(reference)

###ターミナルで実行できるように755アクセス権にする

set ocidFileAttrDict to (refMe's NSMutableDictionary's alloc()'s initWithCapacity:0)

# 777-->511 755-->493 700-->448 766-->502

(ocidFileAttrDict's setValue:(493) forKey:(refMe's NSFilePosixPermissions))

set listDone to (appFileManager's setAttributes:(ocidFileAttrDict) ofItemAtPath:(ocidSaveFilePathURL's |path|()) |error|:(reference))

log item 1 of listDone

log item 2 of listDone

---

NSFileExtendedAttributes基本

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/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 refMe : a reference to current application

set appFileManager to refMe's NSFileManager's defaultManager()

###パブリックフォルダ

set strFilePath to "~/Creative Cloud Files" as text

set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)

set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()

###通常のAttributes

set listAttributesDict to appFileManager's attributesOfItemAtPath:(ocidFilePath) |error|:(reference)

set ocidAttributesDict to (item 1 of listAttributesDict)

set ocidAllKeyArray to ocidAttributesDict's allKeys()

###

repeat with itemKey in ocidAllKeyArray

  set ocidValue to (ocidAttributesDict's valueForKey:(itemKey))

  log itemKey as text

  if (className() of ocidValue as text) contains "Number" then

    log (ocidAttributesDict's valueForKey:(itemKey)) as integer

  else if (className() of ocidValue as text) contains "Date" then

    log (ocidAttributesDict's valueForKey:(itemKey)) as date

  else if (className() of ocidValue as text) contains "Boolean" then

    log (ocidAttributesDict's valueForKey:(itemKey)) as boolean

  else if (className() of ocidValue as text) contains "String" then

    log (ocidAttributesDict's valueForKey:(itemKey)) as text

  end if

  log "----+----1----+----2----+-----3----+----4----+----5"

end repeat

#####NSFileExtendedAttributesの有無

set ocidExtendAttr to ocidAttributesDict's valueForKey:("NSFileExtendedAttributes")

if ocidExtendAttr is (missing value) then

  log "NSFileExtendedAttributesが無い"

else

  log "NSFileExtendedAttributesがある"

  set ocidExtendAllKeysArray to ocidExtendAttr's allKeys()

  repeat with itemKey in ocidExtendAllKeysArray

    if (itemKey as text) is "com.apple.provenance" then

      log "たぶんアイコン付き"

    end if

  end repeat

end if

return

---

【スクリプトエディタで開く】

#!/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 refMe : a reference to current application

set strFilePath to "~/Desktop/B.pdf"

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidFilePathStr to (refMe's NSString's stringWithString:strFilePath)

set ocidFilePath to ocidFilePathStr's stringByExpandingTildeInPath()

####アトリビュートを取得

set listResponse to appFileManager's attributesOfItemAtPath:ocidFilePath |error|:(reference)

set ocidAttarDict to item 1 of listResponse

####レコード形式で戻り値がくるのでキーの名前を取得

log (ocidAttarDict's allKeys()) as list

log (count of ocidAttarDict)

####NSFileExtendedAttributesは子要素としてレコード形式なので

set ocidExtendAttr to ocidAttarDict's valueForKey:"NSFileExtendedAttributes"

-->ここがポイントNSFileExtendedAttributesがなければmissing valueが帰ります。

log ocidExtendAttr as list

####同様にレコードのキーを取得して対象をしぼると

log ocidExtendAttr's allKeys() as list

パーミッション８進→１０進

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/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 framework "AppKit"

use scripting additions

property refMe : a reference to current application

set aliasIconPath to POSIX file "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/FinderIcon.icns" as alias

set strDefaultAnswer to "666" as text

set strText to "777-->511\n775-->509\n770-->504\n755-->493\n750-->488\n700-->448\n644-->420"

try

  ###ダイアログを前面に出す

  tell current application

    set strName to name as text

  end tell

  ####スクリプトメニューから実行したら

  if strName is "osascript" then

    tell application "Finder"

      activate

    end tell

  else

    tell current application

      activate

    end tell

  end if

  set recordResponse to (display dialog strText with title "３桁８進数を入力" default answer strDefaultAnswer buttons {"OK", "キャンセル"} default button "OK" cancel button "キャンセル" with icon aliasIconPath giving up after 20 without hidden answer)

on error

  log "エラーしました"

return "エラーしました"

  error number -128

end try

if true is equal to (gave up of recordResponse) then

return "時間切れですやりなおしてください"

  error number -128

end if

if "OK" is equal to (button returned of recordResponse) then

  set strResponse to (text returned of recordResponse) as text

else

  log "エラーしました"

return "エラーしました"

  error number -128

end if

set strDem to doOct2Dem(strResponse)

try

  ###ダイアログを前面に出す

  tell current application

    set strName to name as text

  end tell

  ####スクリプトメニューから実行したら

  if strName is "osascript" then

    tell application "Finder"

      activate

    end tell

  else

    tell current application

      activate

    end tell

  end if

  set recordResult to (display alert ("計算結果:" & strDem) buttons {"クリップボードにコピー", "キャンセル", "OK"} default button "OK" cancel button "キャンセル" as informational giving up after 30)

on error

  log "エラーしました"

return

end try

###クリップボードコピー

if button returned of recordResult is "クリップボードにコピー" then

  set strText to strDem as text

  ####ペーストボード宣言

  set appPasteboard to refMe's NSPasteboard's generalPasteboard()

  set ocidText to (refMe's NSString's stringWithString:(strText))

appPasteboard's clearContents()

appPasteboard's setString:(ocidText) forType:(refMe's NSPasteboardTypeString)

end if

###################################

#####パーミッション　８進→１０進

###################################

to doOct2Dem(argOctNo)

  set strOctalText to argOctNo as text

  set num3Line to first item of strOctalText as number

  set num2Line to 2nd item of strOctalText as number

  set num1Line to last item of strOctalText as number

  set numDecimal to (num3Line * 64) + (num2Line * 8) + (num1Line * 1)

return numDecimal

end doOct2Dem

---

ディスクが暗号化されているか？

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/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 refMe : a reference to current application

####NSFileManagerで属性を収集する

set appFileManager to refMe's NSFileManager's defaultManager()

set listAttrDict to appFileManager's attributesOfItemAtPath:("/") |error|:(reference)

set ocidAttrDict to item 1 of listAttrDict

####NSFileProtectionKeyを確認

set ocidProtectionState to ocidAttrDict's valueForKey:(refMe's NSFileProtectionKey)

if (ocidProtectionState as text) contains "NSFileProtectionNone" then

return "暗号化されていません"

else

return "暗号化されています"

end if

(*

NSFileProtectionComplete

常時暗号化

NSFileProtectionCompleteUntilFirstUserAuthentication

※初回暗号化解除すればアクセス可能

NSFileProtectionCompleteUnlessOpen

ファイルを閉じるときに暗号化

NSFileProtectionNone

暗号化無し

*)

return

---

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/bin/bash

#com.cocolog-nifty.quicktimer.icefloe

########################

STR_STATUS=$(/usr/bin/fdesetup status)

/bin/echo "$STR_STATUS"

if [[ $STR_STATUS == *On* ]]; then

/bin/echo "暗号化されています"

else

/bin/echo "暗号化されていません"

fi

exit 0

---

NSFileExtendedAttributes削除

xattrにたよるしかない…

【スクリプトエディタで開く】

#!/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 refMe : a reference to current application

set appFileManager to refMe's NSFileManager's defaultManager()

####ダイアログで使うデフォルトロケーション

set ocidUserDesktopPath to (appFileManager's URLsForDirectory:(refMe's NSDesktopDirectory) inDomains:(refMe's NSUserDomainMask))

set aliasDefaultLocation to ocidUserDesktopPath as alias

###アプリケーション限定

set listUTI to {"public.item"}

####ダイアログを出す

set listFilePath to (choose file with prompt "ファイルを選んでください" default location (aliasDefaultLocation) of type listUTI with invisibles, multiple selections allowed and showing package contents) as list

repeat with itemFilePath in listFilePath

  set strFilePath to POSIX path of itemFilePath as text

  set ocidFilePathStr to (refMe's NSString's stringWithString:strFilePath)

  set ocidFilePath to ocidFilePathStr's stringByExpandingTildeInPath()

  ###

  set listResponse to (appFileManager's attributesOfItemAtPath:ocidFilePath |error|:(reference))

  set ocidAttarDict to item 1 of listResponse

  set ocidExtendAttr to (ocidAttarDict's valueForKey:"NSFileExtendedAttributes")

  #################################

  ####個別方式

  if ocidExtendAttr is not (missing value) then

    set listExtendAttr to ocidExtendAttr's allKeys() as list

    ###

    repeat with itemExtendAttr in listExtendAttr

      set strExtendAttr to itemExtendAttr as text

      set strCommandText to ("/usr/bin/xattr -rd " & strExtendAttr & "  \"" & strFilePath & "\"") as text

      ##do shell script strCommandText

      set ocidCommandText to (refMe's NSString's stringWithString:strCommandText)

      set ocidTermTask to refMe's NSTask's alloc()'s init()

      (ocidTermTask's setLaunchPath:"/bin/zsh")

      (ocidTermTask's setArguments:({"-c", ocidCommandText}))

      set listDoneReturn to (ocidTermTask's launchAndReturnError:(reference))

      if (item 2 of listDoneReturn) is not (missing value) then

        log "エラーコード：" & (item 2 of listDoneReturn)'s code() as text

        log "エラードメイン：" & (item 2 of listDoneReturn)'s domain() as text

        log "Description:" & (item 2 of listDoneReturn)'s localizedDescription() as text

        log "FailureReason:" & (item 2 of listDoneReturn)'s localizedFailureReason() as text

      end if

    end repeat

  end if

  ########################################

  ####まとめて削除方式

  ####コマンド整形

  set strCommandText to ("/usr/bin/xattr -rc  \"" & strFilePath & "\"") as text

  ##do shell script strCommandText

  set ocidCommandText to (refMe's NSString's stringWithString:strCommandText)

  set ocidTermTask to refMe's NSTask's alloc()'s init()

  (ocidTermTask's setLaunchPath:"/bin/zsh")

  (ocidTermTask's setArguments:({"-c", ocidCommandText}))

  set listDoneReturn to (ocidTermTask's launchAndReturnError:(reference))

  if (item 2 of listDoneReturn) is not (missing value) then

    log "エラーコード：" & (item 2 of listDoneReturn)'s code() as text

    log "エラードメイン：" & (item 2 of listDoneReturn)'s domain() as text

    log "Description:" & (item 2 of listDoneReturn)'s localizedDescription() as text

    log "FailureReason:" & (item 2 of listDoneReturn)'s localizedFailureReason() as text

  end if

end repeat

ファイルに設定されているNSFileExtendedAttributesを削除する

【スクリプトエディタで開く】

#!/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 refMe : a reference to current application

set appFileManager to refMe's NSFileManager's defaultManager()

####ダイアログで使うデフォルトロケーション

tell application "Finder"

  set aliasDefaultLocation to (path to desktop folder from user domain) as alias

end tell

###ANy

set listUTI to {"public.item"}

####ダイアログを出す

set aliasFilePath to (choose file with prompt "ファイルを選んでください" default location (aliasDefaultLocation) of type listUTI with invisibles and showing package contents without multiple selections allowed) as alias

set strFilePath to POSIX path of aliasFilePath

####ドキュメントのパスをNSString

set ocidFilePath to refMe's NSString's stringWithString:strFilePath

set ocidFilePath to ocidFilePath's stringByStandardizingPath

set ocidNSUrlPath to refMe's NSURL's fileURLWithPath:ocidFilePath

###アトリビュートを取得

set ocidFileAttr to appFileManager's attributesOfItemAtPath:ocidFilePath |error|:(missing value)

###ExtendedAttributesを分離取得

set ocidExtendedAttrDict to (ocidFileAttr's valueForKey:"NSFileExtendedAttributes")

###設定されているキーを取得

set ocidAllKyesArray to ocidExtendedAttrDict's allKeys()

###キーの数だけ繰り返し

repeat with itemAllKyesArray in ocidAllKyesArray

  ###削除する

  (ocidExtendedAttrDict's removeObjectForKey:itemAllKyesArray)

end repeat

###確認

if (ocidExtendedAttrDict's valueForKey:"NSFileExtendedAttributes") is missing value then

  log "全て削除しました"

else

  log "何か残ってます"

end if