vba判断文件夹或者文件是否存在

'该方法适用于三种情况（格式）： 1、D:\vba   2、D:\vba\   3、D:\vba\1.txt

'只要上述三种情况有一种存在，那么方法返回true

Function IsFolderOrFileExists(ByVal strFileName As String) As Boolean
    If Dir(strFileName, 16) <> Empty Then
        IsFolderOrFileExists = True
    Else
        IsFolderOrFileExists = False
    End If
End Function

 

还有一种判断方式：

'该方法适用于两种情况（格式）： 1、D:\vba\   2、D:\vba\1.txt

'只要上述两种情况有一种存在，那么方法返回true

Function IsFileExists(ByVal strFileName As String) As Boolean
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Len(Dir(strFileName)) > 0 Then
        IsFileExists = True
    Else
        IsFileExists = False
    End If

End Function