파인더 툴바(도구막대)에 스크립트 추가하기

set fileCount to 0
set baseName to ""
set baseNumber to 1

tell application "Finder"
 set selectedFiles to selection
 
 repeat with aFile in selectedFiles
  set fileCount to fileCount + 1
 end repeat
 
 set baseName to text returned of (display dialog "변경할 파일명을 입력하세요:" default answer "")
 
 repeat with aFile in selectedFiles
  set fileNumber to text -2 thru -1 of ("0" & baseNumber)
  set fileName to name of aFile
  set fileExtension to name extension of aFile
  set baseNameWithExtension to baseName & "_" & fileNumber & "." & fileExtension
  set newName to my updateExtension(fileName, baseNameWithExtension)
  set name of aFile to newName
  set baseNumber to baseNumber + 1
 end repeat
end tell

on updateExtension(oldName, newFullName)
 set AppleScript's text item delimiters to "."
 set nameParts to text items of oldName
 set extension to last item of nameParts
 set newNameParts to text items 1 thru -2 of newFullName
 set AppleScript's text item delimiters to ""
 return (newNameParts as text) & "." & extension
end updateExtension

set userResponse to display dialog "각 파일별로 압축 작업을 실행하시겠습니까?" buttons {"No", "Yes"} default button "Yes" with icon note
if button returned of userResponse is "Yes" then
 tell application "Finder"
  set selectedItems to selection
 end tell
 
 set output to {}
 set skippedItems to {}
 set destinationFolder to missing value
 
 repeat with someItem in selectedItems
  try
   set someItem to someItem as text
   if the last character of someItem is in {":", "/"} then set someItem to text 1 thru -2 of someItem
   set archiveSource to POSIX path of someItem
   if destinationFolder is missing value then
    set archiveName to archiveSource & ".zip"
   else
    set theName to name of (info for someItem as alias)
    set archiveName to (POSIX path of destinationFolder) & theName & ".zip"
   end if
   do shell script "ditto -ck " & (quoted form of archiveSource) & space & (quoted form of archiveName)
   set the end of output to (POSIX file archiveName) as alias -- success
  on error errorMessage number errorNumber
   log errorMessage
   set the end of skippedItems to someItem
  end try
 end repeat
 
 if skippedItems is not {} then
  set theCount to (count skippedItems) as text
  display alert "압축 작업 중 오류가 발생했습니다." message theCount & "개의 항목을 압축하지 못했습니다."
 end if
 
 return output
end if

tell application "Finder"
 set selectedFiles to selection
 if selectedFiles is {} then
  display alert "No files selected." message "Please select one or more files."
  return
 end if
end tell

tell application "Mail"
 set newMessage to make new outgoing message with properties {visible:true}
 repeat with aFile in selectedFiles
  make new attachment with properties {file name:(aFile as alias)} at after the last paragraph of newMessage
 end repeat
end tell

tell application "Finder"
 set currentPath to (POSIX path of (folder of the front window as alias))
end tell

set the clipboard to currentPath

tell application "iTerm"
 activate
 tell current session of (create window with default profile)
  write text "cd " & quoted form of currentPath
 end tell
end tell

tell application "Finder"
 set currentPath to (POSIX path of (folder of the front window as alias))
end tell

tell application "Terminal"
 activate
 do script "cd " & quoted form of currentPath
end tell