>>   G Gsketring Toolkitderrer`quickSmallBackuprsrcer.3mator33 W1Frontierketring Toolkitderrer``"""` System Folderng Toolkitderrer``"""` #2.1a7 FrontierJGeneva Tp7GLANDlocal (sourcefolder = file.folderfrompath (system.deskscripts.path)) local (backuppointer = sourcefolder + "Backup Folder") bundle error checking on the backup folder on error () scriptError ("You must have an alias named Backup Folderin the same folder as this script.") if not file.exists (backuppointer) error () if not file.isAlias (backuppointer) error () if not file.isFolder (file.followAlias (backuppointer)) error () file.setmodified (backuppointer, clock.now ()) local (destfolder = file.followalias (backuppointer)) local (keystring = "backup #") local (maxnum = 0) fileloop (f in destfolder) if f contains keystring try num = number (file.filefrompath (f) - keystring - ":" - ".sit") if num > maxnum maxnum = num destfolder = destfolder + keystring + (maxnum + 1) local (archive = destfolder + ".sit") destfolder = destfolder + ":" on filter (f) local (name = file.filefrompath (f)) local (type = file.type (f), creator = file.creator (f)) if name contains "(don't back up)" return (false) if (type == 'PROJ') and (creator == 'KAHL') return (false) don't backup the project file if type == 'APPL' return (false) msg ("Copying " + name) return (true) bundle copy files into a backup folder file.surefolder (destfolder) file.filteredcopy (sourcefolder, destfolder, @filter) bundle compress the folder with StuffIt if defined (StuffIt) it's been installed StuffIt.launch () StuffIt.bringToFront () StuffIt.newArchive (archive, false) StuffIt.setCurrentArchive (archive) StuffIt.stuffItem (destfolder) StuffIt.closeArchive (archive) StuffIt.quit () file.deletefolder (destfolder) file.setmodified (system.deskscripts.path, clock.now ()) msg ("Backup complete at " + clock.now ()) $#system.deskscripts.quickSmallBackup0VBq?20ۺ terry_teaguequickSmallBackup.ftds G G~STR scptJckidV LProjector Data2CLKLAND