#42002/5/28 19:47:18
on testFile theFileName
repeat with i=67 to 90
p=false
global myFile
if objectP (myFile) then
nothing
else
set myfile=new(xtra "fileio")
end if
drive=numtochar(i)
mypath=string(drive&":\"&thefilename)
openFile myFile, mypath,0
set x to readFile(myFile)
closeFile myFile
if voidp(x) then
nothing
else
return x
exit
end if
end repeat
end
on preparemovie
put testfile("love.txt")
end
用这个程序可以判断光驱在哪个盘