用这个script可以通过xxx检测,也可以写成带参数的
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
isbeing=true
exit
end if
end repeat
set myFile = 0 -- Dispose of the instance
isbeing=false
end