Version 4. I now see that it is inside the help folder so it may not be useful but here it is:
on «event helphdhp» (completeParam)
-- localizable text
set cancelBtn to "Cancel"
set errorText to "The item cannot be opened. It may be disabled or not installed."
--end localizable text
-- setting delimiters
setAppleScript'stext item delimitersto","
-- parsing parameters
ifcompleteParamcontains","then
setactionToTaketotext item1ofcompleteParam
setstartLocParamtotext item2ofcompleteParam
setfilePathtotext item3ofcompleteParam
try
tell application "Finder"
if startLocParam is "startup disk" then
setstartLoctothestartup disk
else if startLocParam is "Desktop" then
setstartLoctothepath tothedesktop folder
else if startLocParam is "Applications" then
setstartLoctothepath totheapplications folder
else if startLocParam is "Utilities" then
setstartLoctothepath totheutilities folder
else if startLocParam is "Home" then
setstartLoctothepath tothehome folder
else if startLocParam is "System" then
setstartLoctothepath tothesystem folder
else if startLocParam is "Favorites" then
setstartLoctothepath tothefavorites folder
else if startLocParam is "Workflows" then
setstartLoctothepath totheworkflows folder
else if startLocParam is "Music" then
setstartLoctothepath tothemusic folder
else if startLocParam is "Movies" then
setstartLoctothepath tothemovies folder
else if startLocParam is "Library" then
setstartLoctothepath tothelibrary folder
else if startLocParam is "Public" then
setstartLoctothepath tothepublic folder
else if startLocParam is "Pictures" then
setstartLoctothepath tothepictures folder
else if startLocParam is "Sites" then
setstartLoctothepath tothesites folder
else if startLocParam is "Documents" then
setstartLoctothepath tothedocuments folder
else if startLocParam is "Users" then
setstartLoctothepath totheusers folder
else if startLocParam is "Help" then
setstartLoctothepath tothehelp folder
else if startLocParam is "Fonts" then
setstartLoctothepath tothefonts folder
else if startLocParam is "Scripts" then
setstartLoctothepath tothescripts folder
else if startLocParam is "Scripting Additions" then
setstartLoctothepath tothescripting additions folder
else if startLocParam is "Startup Items" then
setstartLoctothepath tothestartup items folder
else if startLocParam is "Workflows" then
setstartLoctothepath totheworkflows folder
end if
if not filePath is "none" or filePath is "" then
setstartHoldertostartLocastext
setstartHoldertostartHolder&filePathastext
setstartLoctostartHolderasalias
end if
if actionToTake is "open" then
activate
openstartLoc
else
activate
revealstartLoc
end if
endtell
onerrorerrMsgnumbererrNum
display dialogerrorTextbuttons{cancelBtn}default button1with icon0
return
endtry
else
try
tell application "Finder"
openfilecompleteParamofthestartup disk
endtell
onerrorerrMsgnumbererrNum
display dialogerrorTextbuttons{cancelBtn}default button1with icon0
return
endtry
endif
end «event helphdhp»