VB怎么检测在目录下的文件？

在程序运行时，检测目录下文件是否存在。
如果文件不存在，就弹出msgbox窗口。
弹出的msgbox窗口要有“帮助”按钮，“帮助”按钮文本：无法显示帮助
 
目录文件：
001.exe
002.exe
003.pep
004.pep
005.wav
 

答案：我把这两个自己写的函数放在一个模块文件里然后调用这两个函数判断，还不错，挺方便的。
 
'判断目录是否存在。返回布尔值:True 存在，False 不存在，foldername 需要检查的文件夹名
Function MyFolderExist(foldername As String)
    Dim FileSystemObject As Object
    Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
    
    If FileSystemObject.FolderExists(foldername) = True Then
        MyFolderExist = True
    Else
        MyFolderExist = False
    End If
    
    Set FileSystemObject = Nothing
End Function
'判断文件是还存在。返回布尔值:True 存在，False 不存在，filername 需要检查的文件名
Function MyFileExist(filename As String)
    Dim FileSystemObject As Object
    Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
    
    If FileSystemObject.FileExists(filename) = True Then
        MyFileExist = True
    Else
        MyFileExist = False
    End If
    
    Set FileSystemObject = Nothing
End Function
Private Sub Command1_Click()
If Dir(App.Path & "\001.exe") <> "" Then  '其它的也可以这样写
MsgBox "存在"
Else
MsgBox "不存在"
End If
End Sub
if len(dir(路径))<>0 then 
  msgbox "存在"
else 
  msgbox "不存在"
end if
弹出的提示是VB自己的风格，不能改提示文本，也不需要那个，只要提示他不存在就行了

上一个：用VB做个倒计时的软件
下一个：求VB中的Like运算符的资料