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

[middleschoolstudent]

请高手给个检测软驱是否有盘的VB6的程序.我想做个小程序.
尽量不用WINDOWS API函数的VB6程序.
简单些的.
多谢!

[lyserver]

Public Function HSoft() As Boolean
On Error Resume Next
Dir "a:\"
HSoft = (Err.Number = 0)
End Function

[cbm6666]

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

[东方之珠]

用Win32汇编，就那么几行