用VB打开任意盘(硬盘/U盘/光盘)的文件

径

        Unload Me

        End  ''并结束本程序

    Else

        Debug.Print "CD-ROM is Empty"

    End If

Err_File:

   If Err.Description = "错语的文件名或号码" Then Exit Sub

End Sub



Function IsEmptyCDROM(sDrive As String)

     Dim s

     

    On Error GoTo ErrHandle

     s = Dir(sDrive + "*.*")

     IsEmptyCDROM = False

     Exit Function

ErrHandle:

     IsEmptyCDROM = True

End Function