Script snippet for resolving alias of Documents folder

[Allen Watson]

Title: Script snippet for resolving alias of Documents folder

Someone asked me to re-post this snippet of code, which is designed to allow you to put your Documents folder into another partition or disk, and to put an alias pointing to it in place of the Documents folder on your startup disk. This code will find the documents folder either on the Startup Disk or, if an alias is there, it will resolve the alias and follow it to the actual location. This particular code locates the Entourage Script Menu Items folder within Documents:

            set MyDisk to (path to startup disk) as string
            set x to info for (MyDisk & "Documents:")
            if alias of x is true then
                tell application "Finder" to set oi to original item of alias file (MyDisk & "Documents:")
                set MUD to ((oi as string) & "Microsoft User Data:")
            else
                set MUD to (MyDisk & "Documents:Microsoft User Data:")
            end if
            set scrptFldr to MUD & "Entourage Script Menu Items:"

--
Peace,
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
A Mac family since 1984 <http://home.earthlink.net/~allenwatson/>
Applescripts for Outlook Express and Entourage: <http://homepage.mac.com/allenwatson/>