On 3/31/05 12:44 PM, "Thomas McGrath III" <[EMAIL PROTECTED]> wrote:
> much appreciated.....
>
> How can I open a folder on the users desktop???
Here's a way I use:
on stsOpenFolder pPath
switch (the platform)
case "Win32"
set the hideConsoleWindows to true
if the shellCommand is "cmd.exe" then
create alias "C:/Temp.lnk" to file pPath
get shell("C:\Temp.lnk")
delete file "C:/Temp.lnk"
else
get shell("start" && quote & pPath & quote)
end if
break
case "MacOS"
if isOSX() then
get shell("open " & pPath)
else
put "tell application " & quote & "Finder" & quote & cr & \
"activate" & cr & \
"open folder " & quote & revMacFromUnixPath(pPath) & quote & \
cr & "end tell" into tScript
do tScript as AppleScript
end if
break
end switch
end stsOpenFolder
function isOSX
set the itemDel to "."
return (item 1 of the systemVersion >=10)
end isOSX
_______________________________________________
use-revolution mailing list
[email protected]
http://lists.runrev.com/mailman/listinfo/use-revolution
