救急！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

请问各位：怎样判断光驱中是否有光盘？ 问题点数：80、回复次数：4Top

1 楼zym1110（非才鸟）回复于 2001-11-29 11:05:34 得分 0

没有人知道吗Top

2 楼foolishtiger（冬蛩）回复于 2001-11-29 11:06:35 得分 10

1.用FSO  
  2.用错误捕获Top

3 楼icyer（）回复于 2001-11-29 11:10:54 得分 70

Dim   fso   As   New   FileSystemObject  
  Dim   drive   As   drive  
   
  For   Each   drive   In   fso.Drives  
          If   drive.DriveType   =   CDRom   Then  
                  If   drive.IsReady   Then  
                          MsgBox   "CDROM中有盘！"  
                  Else  
                          MsgBox   "CDROM中没盘！“"  
                  End   If  
                  Exit   For  
          End   If  
  NextTop

4 楼icyer（）回复于 2001-11-29 11:11:54 得分 0

当然，你还得先“引用”“Microsoft   Scripting   Runtime”Top

相关问题

• cdrom
• drive
• msgbox
• fso
• then

• 帖主：zym1110
• foolishtiger
• icyer

• Visual Basic类图书
• Visual Basic类源码下载