I thought i would post the code for someone looking to have multiple cd-roms
with mpeg files on it talking to a projector on a Hard Drive. Swapping Mpegs
was not the solution.
Ravi
on beginSprite me
passed = false
fileXtraObj = new (xtra "filextra3")
set gdrives = fileXtraObj.fx_VolumesToList ()
repeat while passed = false
repeat with x = 1 to gdrives.count
gtheLabel = baDiskInfo( gdrives[x].char[1] , "name" )
put gtheLabel
if gtheLabel = cdLab then
filepath = gcdRomVolume & dmedia
set the file of member pNameOfMember to filepath
passed = true
append (the searchPaths, gtheLabel)
exit
end if
end repeat
Answer = baMsgBox( alertMessage, "Where is.CD Labelled MockS1.." ,
"OKCancel", "Exclamation" , 1 )
if answer <> "OK" then
"Some code here to Quit or whatever"
end if
next repeat
end repeat
fileXtraObj = 0
end
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
