怎样判断A驱动器有没有软盘。

[aa_aa_aa]

[DTWUJP]

贴一段代码，供参考。
Select Case Err.Number
Case 57
MsgBox "此磁盘已损坏，请更换新的磁盘！", vbCritical + vbOKOnly
mdifrmgzgl.StatusBar1.Panels(2).Text = ""
Case 61
MsgBox "此软盘没有空间存入数据库，请更换一张格式化好的空白软盘！", vbCritical + vbOKOnly
mdifrmgzgl.StatusBar1.Panels(2).Text = ""

Case 70
MsgBox "软盘在写保护状态，请去除写保护！", vbCritical + vbOKOnly
mdifrmgzgl.StatusBar1.Panels(2).Text = ""

Case 71
MsgBox "你没有插入软盘，请插入软盘！", vbCritical + vbOKOnly
mdifrmgzgl.StatusBar1.Panels(2).Text = ""

Case 76
MsgBox "程序未发现数据库文件，请确定数据库文件存在！", vbCritical + vbOKOnly
mdifrmgzgl.StatusBar1.Panels(2).Text = ""

Case Else
MsgBox Err.Description, vbCritical + vbOKOnly
mdifrmgzgl.StatusBar1.Panels(2).Text = ""


End Select