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

[middleschoolstudent]

请教各位高手:我在书上看到一个VB程序,它是这样的:
Private Sub Command1_Click()
Dim flag As Boolean
flag = floppydiskflag("A:\")
If flag = False Then MsgBox "没有插入磁盘，请插入磁盘"
Else
MsgBox "您可以进行"
End If

End Sub
但我在试验时,它却说:子程序或函数未定义(错误的地方是:flag=floppydiskflag("A:\")位置在floppydiskflag这里),请教高手:正确的应该是怎样的?

这个程序是我在书上抄的.按理说是应该对的.但它却出错.请高手给个正确的代码.
谢了.

[supergreenbean]

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

[supergreenbean]

你的floppydiskflag函数可能类似于此

Function floppydiskflag(ByVal DriveLetter As String) As Boolean
On Error Resume Next
Dir (DriveLetter)
floppydiskflag= (Err.Number = 0)
End Function