在VB中如何判断文件、文件夹是否存在和生成文件夹

'判断文件
Public Function FileExists(ByVal File As String) As Boolean
On Error Resume Next
If (GetAttr(File) And vbDirectory) = False Then FileExists = True
If err Then FileExists = False: err.Clear
End Function
'判断目录
Function FolderExists(ByVal Folder As String) As Boolean
On Error Resume Next
If GetAttr(Folder) And vbDirectory Then FolderExists = True
If err Then FolderExists = False: err.Clear
End Function

 

 '创建多层目录
Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long
用法：
MakeSureDirectoryPathExists "c:/this/is/a/test/directory/"

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vx3yjeyf3vj22yv7ee2.html