« [Acrobat]しおり全削除 | トップページ | [Adobe]フォントキャッシュlstファイルをゴミ箱に入れる(enumeratorAtURL) »

[365]Office365のフォントキャッシュをゴミ箱に入れる

削除は利用者に任せる系
フォントキャッシュ『限定』
通常のキャッシュはそのままにする
Group Containersの
FontCacheは、フォントファイルの『実態』が含まれているので、今回は削除の対象に入れなかった。



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

#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#
#
#
#                       com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
##自分環境がos12なので2.8にしているだけです
use AppleScript version "2.8"
use framework "Foundation"
use scripting additions

property refMe : a reference to current application

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

###################################
########Libraryフォルダ
###################################
set ocidUserLibraryPath to (objFileManager's URLsForDirectory:(refMe's NSLibraryDirectory) inDomains:(refMe's NSUserDomainMask))
###LibraryフォルダURL
set ocidLibraryPathURL to ocidUserLibraryPath's firstObject()

###################################
########microsoftフォルダ
###################################

##################################################
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Outlook/Data/Library/Application Support/Microsoft/FontCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Outlook/Data/Library/Application Support/Microsoft/FontPreviewCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Outlook/Data/Library/Caches/com.microsoft.Outlook/fsCachedData/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Outlook/Data/Library/Caches/Microsoft/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)

##################################################
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.onenote.mac/Data/Library/Application Support/Microsoft/FontCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.onenote.mac/Data/Library/Application Support/Microsoft/FontPreviewCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.onenote.mac/Data/Library/Caches/com.microsoft.onenote.mac/fsCachedData/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.onenote.mac/Data/Library/Caches/Microsoft/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)

##################################################
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Excel/Data/Library/Application Support/Microsoft/FontCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Excel/Data/Library/Application Support/Microsoft/FontPreviewCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Excel/Data/Library/Caches/com.microsoft.Excel/fsCachedData/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Excel/Data/Library/Caches/Microsoft/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)




##################################################
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Powerpoint/Data/Library/Application Support/Microsoft/FontCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Powerpoint/Data/Library/Application Support/Microsoft/FontPreviewCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Powerpoint/Data/Library/Caches/com.microsoft.Powerpoint/fsCachedData/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Powerpoint/Data/Library/Caches/Microsoft/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)

##################################################
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Word/Data/Library/Application Support/Microsoft/FontCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Word/Data/Library/Application Support/Microsoft/FontPreviewCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Word/Data/Library/Caches/com.microsoft.Word/fsCachedData/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.Word/Data/Library/Caches/Microsoft/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)

##################################################
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.to-do-mac/Data/Library/Application Support/Microsoft/FontCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.to-do-mac/Data/Library/Application Support/Microsoft/FontPreviewCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.to-do-mac/Data/Library/Caches/com.microsoft.to-do-mac/fsCachedData/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.to-do-mac/Data/Library/Caches/Microsoft/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)

##################################################
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.rdc.macos/Data/Library/Application Support/Microsoft/FontCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.rdc.macos/Data/Library/Application Support/Microsoft/FontPreviewCache/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.rdc.macos/Data/Library/Caches/com.microsoft.rdc.macos/fsCachedData/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)
#####チェックするディレクトリ
set ocidChkDirURL to ocidLibraryPathURL's URLByAppendingPathComponent:"Containers/com.microsoft.rdc.macos/Data/Library/Caches/Microsoft/"
###中身をゴミ箱に入れる
doGo2TrashDirContentsURL(ocidChkDirURL)



###################################
########ディレクトリの中身をゴミ箱へ
###################################
on doGo2TrashDirContentsURL(ocidDirUrl)
  ###ファイルマネージャー初期化
  set objFileManager to refMe's NSFileManager's defaultManager()
  ################################
  ####渡された値がNSURL以外の場合の処理
  try
    set strClassName to class of ocidDirUrl as text
    ####渡された値がテキストだったら
    if strClassName is "text" then
      set strDirUrl to ocidDirUrl as text
      ####渡された値がエイリアスだったら
    else if strClassName is "alias" then
      set strDirPath to POSIX path of ocidDirUrl as text
    end if
    set ocidFilePath to (refNSString's stringWithString:strDirPath)
    set ocidFilePathString to ocidFilePath's stringByStandardizingPath
    set ocidDirPathURL to (refNSURL's alloc()'s initFileURLWithPath:ocidFilePathString isDirectory:true)
  on error
    ######ocid形式の値だったら
    set strClassName to ocidDirUrl's className() as text
    ###テキストなら
    if strClassName contains "NSCFString" then
      set ocidFilePathString to ocidDirUrl's stringByStandardizingPath
      set ocidDirPathURL to (refNSURL's alloc()'s initFileURLWithPath:ocidFilePathString isDirectory:true)
      ###NSURLなら
    else if strClassName is "NSURL" then
      set ocidDirPathURL to ocidDirUrl
    else
      error "NSURLを指定してください" number -9999
      return
    end if
  end try
  ################################
  ####渡されたパスが無い場合はエラー
  set ocidFilePathString to ocidDirPathURL's |path|()
  set boolFolderExists to (objFileManager's fileExistsAtPath:ocidFilePathString isDirectory:true)
  if boolFolderExists is false then
    log "パス先が実在しません"
    ####パス先ない場合は作っておく
    set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
    ocidAttrDict's setValue:511 forKey:(refMe's NSFilePosixPermissions)
    set listBoolMakeDir to objFileManager's createDirectoryAtURL:(ocidDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error|:(reference)
    return
  end if
  ################################
  ####ディレクトリか?の判断 ファイルならエラーで止める 
  set ocidResultArray to ocidDirPathURL's getResourceValue:(reference) forKey:(refMe's NSURLIsDirectoryKey) |error|:(reference)
  if (item 3 of ocidResultArray) is not (missing value) then
    doGetErrorData(ocidNSErrorData)
  end if
  set ocidResultValue to item 2 of ocidResultArray
  -->false
  set ocidFalse to (refMe's NSNumber's numberWithBool:false)'s boolValue
  if ocidResultValue is ocidFalse then
    ##error "パス先がファイルですディレクトリを指定してください" number -9999
    log "パス先がファイルですディレクトリを指定してください"
    return
  end if
  ##################################
  ##内包リスト
  set listResult to objFileManager's contentsOfDirectoryAtURL:ocidDirPathURL includingPropertiesForKeys:{refMe's NSURLPathKey} options:0 |error|:(reference)
  ###エラー発生時
  if (item 2 of listResult) is not (missing value) then
    doGetErrorData(item 2 of listResult)
  end if
  
  ###結果
  set ocidPathArray to item 1 of listResult
  repeat with itemPathArray in ocidPathArray
    set ocidPathArrayURL to itemPathArray
    ##ゴミ箱に入れる
    set listResult to (objFileManager's trashItemAtURL:ocidPathArrayURL resultingItemURL:(missing value) |error|:(reference))
    ###エラー発生時
    if (item 2 of listResult) is not (missing value) then
      doGetErrorData(item 2 of listResult)
    end if
  end repeat
end doGo2TrashDirContentsURL


|

« [Acrobat]しおり全削除 | トップページ | [Adobe]フォントキャッシュlstファイルをゴミ箱に入れる(enumeratorAtURL) »

AppleScript Microsoft」カテゴリの記事