Opening folders from Rev

[Mike Brown]

Hi Ken,

Thanks for the Script.. I can't get it to work though.  maybe I am
implementing it incorrectly.  I am working on a Mac with OS X and 9.2 for
Classic mode.  I have also tested on a Win 98 PC.  The script accurately
selects the folder path and assembles the Apple Script but nothing happens
after that.  Any other ideas?

Thanks,
Mike


> To: <use-revolution at lists.runrev.com>
> Subject: Re: Opening folders from Rev
> 
> Mike,
> 
> You can do it completely with Transcript... here's a way to do it on
> Windows, Mac OS X and OS 9. The Windows version is a little sneaky as it
> takes advantage of aliases, but it works nonethelss. I'll be posting this
> tip on my site tomorrow
> (http://www.sonsothunder.com/revolution/revolution.htm?file009) as my FTP
> server is temporarily down, but in the meantime, here's the code:
> 
> on mouseUp
> answer folder "Get a folder:"
> if it <> "" then
> OpenFolder it
> end if
> end mouseUp
> 
> on OpenFolder pPath
> switch (the platform)
> case "Win32"
> create alias "C:/Temp.lnk" to file pPath
> set the hideConsoleWindows to true
> get shell("C:\Temp.lnk")
> delete file "C:/Temp.lnk"
> break
> case "MacOS"
> if the systemVersion >= 10 then
> get shell("open " & pPath)
> else
> put "tell application " & quote & "Finder" & quote & cr & \
> "activate" & cr & \
> "open folder " & quote & pPath & quote & cr & \
> "end tell" into tScript
> do tScript as AppleScript
> end if
> break
> end switch
> end OpenFolder
> 
> Enjoy!
> 
> Ken Ray
> Sons of Thunder Software
> Email: kray at sonsothunder.com
> Web Site: http://www.sonsothunder.com/
> 
> 
> ----- Original Message -----
> From: "Mike Brown" <mike at cyber-ny.com>
> To: <use-revolution at lists.runrev.com>
> Sent: Tuesday, October 22, 2002 2:25 PM
> Subject: Opening folders from Rev
> 
> 
>> Anyone know a method for popping open a folder (directory) from Rev in Win
>> and/or Mac OS?  I want to allow users of my app to open a folder and grab
>> files while still in the Rev app.
>> 
>> Thanks,
>> Mike
>> 
>> _______________________________________________
>> use-revolution mailing list
>> use-revolution at lists.runrev.com
>> http://lists.runrev.com/mailman/listinfo/use-revolution
>> 
> 
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/use-revolution