#GET APPLESCRIPT EDITOR ARCHIVE#
#GET APPLESCRIPT EDITOR ZIP#

As it is, it only duplicates functionality that is readily available in the Finder already. This script would be more powerful if it encrypted the files after compressing them.

#GET APPLESCRIPT EDITOR ARCHIVE#

On open these_items tell application 'Finder' set tempFolderPath to path to 'temp' as string set tempFolderName to my UniqueName(tempFolderPath, 'Archive') if (tempFolderName is not anything) then try set theFolder to choose folder with prompt 'Choose where the archive should be placed:' display dialog 'Enter a name to use for the archive:' default answer 'Archive.zip' set theName to text returned of the result set archiveName to my UniqueName(theFolder, theName) if (archiveName is not anything) then set tempFolder to make new folder at tempFolderPath with properties repeat with i from 1 to the count of these_items set this_item to item i of these_items duplicate this_item to tempFolder end repeat set theSource to quoted form of (POSIX path of (tempFolder as alias)) set theDest to quoted form of ((POSIX path of theFolder) & archiveName) do shell script '/usr/bin/ditto -c -k -sequesterRsrc ' & theSource & ' ' & theDest else display dialog 'The archive can not be created: too many archive files with similar names.' end if delete tempFolder end try else display dialog 'The archive can not be created: too many temp files with similar names.' end if end tellend openon UniqueName(baseFolder, itemName) tell application 'Finder' set basePath to baseFolder as string set savedDelims to AppleScript's text item delimiters set AppleScript's text item delimiters to '.' set theTextItems to text items of itemName if ((count of theTextItems) > 1) then set baseName to (items 1 thru -2 of theTextItems) as text set theExt to '.' & (item -1 of theTextItems) else set baseName to itemName set theExt to '' end if set AppleScript's text item delimiters to savedDelims set tempName to itemName set i to 0 repeat while ((folder (basePath & tempName) exists) and (i < 1000)) set i to i + 1 set tempName to baseName & i & theExt end repeat if (i < 1000) then return tempName else return anything end if end tellend UniqueName It also will attempt to get a unique name for the final archive in case there is already a file with the chosen archive name. Here's a script which will combine multiple files into one archive.

I figured why not just make it a droplet? Copy and paste the following into Script Editor and save it as an application: on open (theItems) -receive items dropped onto droplet as a list -incase you're trying to compress something really big on your Rev A iMac: with timeout of 1000000 seconds try tell application 'Finder' -repeat the command to compress each item as an individual archive repeat with oneItem in theItems -used to extract the name and location of the file set itemProp to properties of oneItem -where the file is set itemPath to quoted form of POSIX path of oneItem -where the compressed file should end up set destFold to quoted form of POSIX path of В¬ (container of itemProp as alias) -what the name of the file is set itemName to name of oneItem -do it, do it now do shell script В¬ ('ditto -c -k -X -rsrc -keepParent ' & itemPath & В¬ ' ' & destFold & ''' & itemName & ''' & '.zip') end repeat end tell on error errmsg -should anything go wrong let the user know display dialog errmsg end try end timeoutend open

#GET APPLESCRIPT EDITOR ZIP#

zip files and people were doing it with folder action scripts.

In this article, I will begin by modifying the script below to show you how you can use data returned from a dialog to invoke an action from AppleScript.I came across some hints on using the ditto command to create. In my last article, we ended up with this dialog which had to be encompassed by a 'TRY CLAUSE' to prevent an error message from being generated by activating the 'Cancel' button.

Get applescript editor