在程序运行时,检测目录下文件是否存在。 如果文件不存在,就弹出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
|