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