如果文件不存在，就弹出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