|
|
主题: 判断光驱
|
非的
职务：普通成员
等级：1
金币：0.0
发贴：49
|
#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
|
#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
|
#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
|
#42002/5/17 12:58:03
那threem大侠，去哪找buddyAPI
|
my555
职务：普通成员
等级：1
金币：0.0
发贴：50
|
|
