主题:  判断光驱

非的

职务:普通成员
等级:1
金币:0.0
发贴:49
注册:2000/12/24 20:34:27
#12002/5/17 11:15:48
on CheckDrive name
repeat with I = 66 to 90
set drive = numToChar( I )
set myThisPath = string(drive & ":\"& name)
set myFile = fileIO(mNew, "read", myThisPath)
if objectP(myFile) then
myFile(mDispose)
return drive&":"
exit
end if
end repeat
alert"Please check that"&"E&name"E&&"is on your CD drive."
end
这段判断光驱的程序怎么总是有错啊
mDispose是什么意思,麻烦大侠指教,还有mNew是什么意思



threem

职务:普通成员
等级:2
金币:1.0
发贴:338
注册:2001/6/14 13:52:15
#22002/5/17 12:04:34
-- AGGetCdromList()

--提供者:eric_huang

--语法:

-- AGGetCdromList()

--描述:

-- 返回光驱盘符列表

-- 需要buddyAPI插件

--范例:

-- put AGGETCdromList()

-- -- ["G"]

--

on AGGetCdromList

cdromlist=[]

repeat with drivenum= 68 to 91

drivename=numtochar(drivenum)

cdrom= baDiskInfo( drivename, "type")

if cdrom = "CD-ROM" then

append cdromlist,drivename

end if

if cdrom = "Invalid" then

exit repeat

end if

end repeat

return cdromlist

end



threem

职务:普通成员
等级:2
金币:1.0
发贴:338
注册:2001/6/14 13:52:15
#32002/5/17 12:08:57
非的在上个帖子中说
引用:
on CheckDrive name
repeat with I = 66 to 90
set drive = numToChar( I )
set myThisPath = string(drive & ":\"& name)
set myFile = fileIO(mNew, "read", myThisPath)
if objectP(myFile) then
myFile(mDispose)
return drive&":"
exit
end if
end repeat
alert"Please check that"&"E&name"E&&"is on your CD drive."
end
这段判断光驱的程序怎么总是有错啊
mDispose是什么意思,麻烦大侠指教,还有mNew是什么意思


这个不会一个完整的程序,应该还有一个关联的处理程序在一起才正常工作。
你只是选了其中一部分而已。



非的

职务:普通成员
等级:1
金币:0.0
发贴:49
注册:2000/12/24 20:34:27
#42002/5/17 12:58:03
那threem大侠,去哪找buddyAPI



my555

职务:普通成员
等级:1
金币:0.0
发贴:50
注册:2002/5/14 16:23:21
#52002/5/19 0:14:58
我有