寻找检测软驱是否有盘的VB程序

middleschoolstudent 2008-03-20 07:51:40
请高手给个检测软驱是否有盘的VB6的程序.我想做个小程序.
尽量不用WINDOWS API函数的VB6程序.
简单些的.
多谢!
...全文
77 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
东方之珠 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

lyserver 2008-03-20
  • 打赏
  • 举报
回复
Public Function HSoft() As Boolean
On Error Resume Next
Dir "a:\"
HSoft = (Err.Number = 0)
End Function

相关推荐
发帖
资源

1066

社区成员

VB 资源
社区管理员
  • 资源
加入社区
帖子事件
创建了帖子
2008-03-20 07:51
社区公告
暂无公告