Re: AppleScript to backup Entourage data

[Jeff Porten]

Title: Re: AppleScript to backup Entourage data

> Plain text in email adds hard wrapping (carriage returns) at the ends of
> lines. So if someone sends in a script in plain text, all the long lines
> that continue onto second lines become two lines with bad syntax.

Sorry about that.  In fact, I did check my outgoing mail window for hard returns, but forgot that they'd be added after they were sent.  My apologies.

> Jeff may not be aware that, unlike some mailing lists which have people with
> many different email clients as members (some of which may not cope with
> HTML), this list actually encourages scripters to send in scripts in HTML,
> which avoids this problem completely.

I am now.

> That's how to do it. Perhaps Jeff would like to resend his script in HTML,
> if he's not afraid that too many people will be harmed by it. Although he
> has advised you to back up your data, so I guess you'd better do that first.

Here you go.  I can’t think of any way that this script would be harmful, but feel free to make a manual backup before you use this script to automate your backups!


tell application "Finder"
    activate
    --If backup data exists
   if folder "Documents:Microsoft User Data backup" of startup disk exists then
       --If age of backup data is over 1 day
       if modification date of folder "Documents:Microsoft User Data backup" of startup disk < ((current date) - 1 * days) then
           --If secondary backup exists
           if folder "Documents:Microsoft User Data old backup" of startup disk exists then
               --Delete old secondary backup
               move folder "Documents:Microsoft User Data old backup" of startup disk to trash
                --Rename old backup to secondary backup
               set the name of folder "Documents:Microsoft User Data backup" of startup disk to "Microsoft User Data old backup"
                --Make new backup
               set NewBackup to duplicate folder "Documents:Microsoft User Data" of startup disk
                set the name of NewBackup to "Microsoft User Data backup"
            end if
       end if
   else
       --Make new backup
       set NewBackup to duplicate folder "Documents:Microsoft User Data" of startup disk
        set the name of NewBackup to "Microsoft User Data backup"
    end if
end tell