请教一个检测驱动器的程序

Question

请教各位高手:我在书上看到一个VB程序,它是这样的:
Private Sub Command1_Click()
Dim flag As Boolean
flag = floppydiskflag("A:\")
If flag = False Then MsgBox "没有插入磁盘，请插入磁盘"
Else
MsgBox "您可以进行"
End IfEnd Sub
但我在试验时,它却说:子程序或函数未定义(错误的地方是:flag=floppydiskflag("A:\")位置在floppydiskflag这里),请教高手:正确的应该是怎样的?这个程序是我在书上抄的.按理说是应该对的.但它却出错.请高手给个正确的代码.
谢了.

Answer 1

出错的原因是你少抄了floppydiskflag函数的实现部分

Answer 2

你的floppydiskflag函数可能类似于此Function floppydiskflag(ByVal DriveLetter As String) As Boolean
    On Error Resume Next
    Dir (DriveLetter)
    floppydiskflag= (Err.Number = 0)
End Function