vba判断文件是否存在的两种方法

方法1. 用VBA自带的dir()判断，代码如下：

在 Microsoft Windows 中， Dir 支持多字符 (*)和单字符 (?) 的通配符来指定多重文件

[vb]  view plain copy

1. Function IsFileExists(ByVal strFileName As String) As Boolean  
2.     If Dir(strFileName, 16) <> Empty Then  
3.         IsFileExists = True  
4.     Else  
5.         IsFileExists = False  
6.     End If  
7. End Function  
8.   
9. Sub Run()  
10.     If IsFileExists("D:\vba\abc.txt") = True Then  
11.     ' 文件存在时的处理  
12.         MsgBox "文件存在！"  
13.     Else  
14.     ' 文件不存在时的处理  
15.         MsgBox "文件不存在！"  
16.     End If  
17. End Sub  

方法2. 用Windows的文件系统函数进行判断，代码如下：

[vb]  view plain copy

1. Function IsFileExists(ByVal strFileName As String) As Boolean  
2.     Dim objFileSystem As Object  
3.   
4.     Set objFileSystem = CreateObject("Scripting.FileSystemObject")  
5.     If objFileSystem.fileExists(strFileName) = True Then  
6.         IsFileExists = True  
7.     Else  
8.         IsFileExists = False  
9.     End If  
10. End Function  
11.   
12. Sub Run()  
13.     If IsFileExists("D:\vba\abc.txt") = True Then  
14.     ' 文件存在时的处理  
15.         MsgBox "文件存在！"  
16.     Else  
17.     ' 文件不存在时的处理  
18.         MsgBox "文件不存在！"