检测软驱的问题,请各位高手帮忙!

Question

请各位帮忙,如何才能正确的用VB程序检测软驱中是否有软盘呢?
我在一个书上看到了这样一个例子程序:
Private Sub Command1_Click()
dim flag as boolean
flag=floppydiskflag("a:")
if flag=false then msgbox "没有插入软盘,请插入软盘",vbcritical
end sub
'函数检查软驱中是否有盘存在
private function floppydiskflag(sdrive as string)as boolean
on error resume next
floppydiskflag=dir(sdrive)<>""
end function
这是书上写的这个的整个程序.但我输入VB后,却报告出错了.显示:子程序或函数未定义.出错在:flag=floppydiskflag("a:")这里.请大家帮帮我,正确和完整的检测程序应该如何写阿?
我十分着急!
请大家帮帮我吧!
谢谢了!

Answer 1

Dim Flag As BooleanPrivate Sub Command1_Click()
   Flag = Fun_FloppyDrive("A:")
   If Flag = False Then MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical
End SubPrivate Function Fun_FloppyDrive(sDrive As String) As Boolean '检查软驱中是否有盘的存在
   On Error Resume Next
   Fun_FloppyDrive = Dir(sDrive) <> ""
End Function