#22000/12/26 21:24:28
myFile=new(xtra "fileio")
repeat with i=67 to 90
set driverName=numtochar(i)
set a=driverName&":\madebyamith.dtm" --光盘目录加入一个识别文件 madebyamith.dtm
openfile(myfile,a,1)
if status(myfile)=0 then
cdromPath=driverName & ":\" --获得光驱字符
isgetcdrom=true
end if
end repeat
if isgetcdrom =false then
alert "请放入光盘"
quit
end if