主题:  关于alert提示的问题

gwllb

职务:普通成员
等级:1
金币:0.0
发贴:91
#12003/8/17 20:02:14
使用BUDDYAPI函数解决了查找盘符和载入视频文件的问题。
不过,在查找正确光驱时的要将各驱动器都检查一次,所以我想用个alert应该怎么写呢?
on mouseup me
repeat with drivenum= 67 to 90
drivename=numtochar(drivenum)
cdrom= baDiskInfo( drivename, "name")
put cdrom
if cdrom = "NEW" then --如果CDROM的卷标返回NEW,那么
member("file.mpg").preLoad()
Member("file.mpg").ShowLocateFileDialog =0
member("file.mpg").file=drivename & ":\video\A6.wmv"
end if
if cdrom = "Invalid" then
exit repeat
end if
end repeat
end

就是当检查完毕所有驱动器,如果驱动器卷标列表中没有NEW,那么就提示alert “请插入DISK1”,这个该有个什么条件呢?也就是说,怎么写if cdrom (没有) "new" then ......现在的情况是最少要出现3次alert,因为我的光驱是在F盘,程序至少要先检查C、D、E盘。
请各位大侠帮忙

编辑历史:[这消息被gwllb编辑过(编辑时间2003-08-18 14:05:37)]


gwllb

职务:普通成员
等级:1
金币:0.0
发贴:91
#22003/8/18 14:04:28
顶一下



D计划-混沌

职务:管理员
等级:6
金币:15.2
发贴:3528
#32003/8/18 15:47:37
if (cdrom = "NEW")=0 then



gwllb

职务:普通成员
等级:1
金币:0.0
发贴:91
#42003/8/18 17:56:00
已解决~3Q