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

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

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

Function IsFileExists(ByVal strFileName As String) As Boolean  

    If Dir(strFileName, 16) <> Empty Then  

        IsFileExists = True  

    Else  

        IsFileExists = False  

    End If  

End Function  

  

Sub Run()  

    If IsFileExists("D:\vba\abc.txt") = True Then  

    ' 文件存在时的处理  

        MsgBox "文件存在！"  

    Else  

    ' 文件不存在时的处理  

        MsgBox "文件不存在！"  

    End If  

End Sub 

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

Function IsFileExists(ByVal strFileName As String) As Boolean  

    Dim objFileSystem As Object  

  

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")  

    If objFileSystem.fileExists(strFileName) = True Then  

        IsFileExists = True  

    Else  

        IsFileExists = False  

    End If  

End Function  

  

Sub Run()  

    If IsFileExists("D:\vba\abc.txt") = True Then  

    ' 文件存在时的处理  

        MsgBox "文件存在！"  

    Else  

    ' 文件不存在时的处理  

        MsgBox "文件不存在！"  

    End If  

End Sub