1,065
社区成员
发帖
与我相关
我的任务
分享寻找检测软驱是否有盘的VB程序
请高手给个检测软驱是否有盘的VB6的程序.我想做个小程序.
尽量不用WINDOWS API函数的VB6程序.
简单些的.
多谢!
尽量不用WINDOWS API函数的VB6程序.
简单些的.
多谢!
...全文
请发表友善的回复…
发表回复
东方之珠 2008-03-21
- 打赏
- 举报
用Win32汇编，就那么几行
cbm6666 2008-03-20
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox IIf(CheckFloppy("A:"), "OK,Ready", "无A驱或没有放入磁盘，请将磁盘插入驱动器")
End Sub
Private Function CheckFloppy(sDrive As String) As Boolean
On Error Resume Next
CheckFloppy = Dir(sDrive) <> ""
End Function
MsgBox IIf(CheckFloppy("A:"), "OK,Ready", "无A驱或没有放入磁盘，请将磁盘插入驱动器")
End Sub
Private Function CheckFloppy(sDrive As String) As Boolean
On Error Resume Next
CheckFloppy = Dir(sDrive) <> ""
End Function
lyserver 2008-03-20
- 打赏
- 举报
Public Function HSoft() As Boolean
On Error Resume Next
Dir "a:\"
HSoft = (Err.Number = 0)
End Function
On Error Resume Next
Dir "a:\"
HSoft = (Err.Number = 0)
End Function
