如何检测cdrom中有无光盘.txt

VB技巧问答10000例 VB技巧问答10000例

你 可 以 使 用 下 面 这 个 函 数 ： 
    Public Function IsEmptyCDROM(sDrive As String) 
     Dim s 
     
     On Error GoTo ErrHandle 
     s = Dir(sDrive + ":\*.*") 
     IsEmptyCDROM = False 
     Exit Function 
    ErrHandle: 
     IsEmptyCDROM = True 
    End Function 
    如 果 你 的 光 驱 是 E盘 ， 调 用 IsEmptyCDROM("e")， 如 果 返 回 值 为 False表 示 没 有 光 盘 ， 返 回 True表 示 有 光 盘 。 
<END>