#72001/11/24 15:10:31
在光盘中放一个特定的文件, 再来检测.
on CheckDrive
repeat with i = 67 to 90
set drive = numTochar( i )
set thisPath = string(drive & ":\xxx")--xx为光盘上的一个文件
set myFile = new(xtra "fileio") -- Create an instance of FileIO Xtra
openFile(myFile, thisPath, 1) -- attempt to open the file
if status(myfile) = 0 then -- status returns 0 for success
set myFile = 0 -- Dispose of the instance
return drive--就是它了
end if
end repeat
set myFile = 0 -- Dispose of the instance
end