VBA判斷指定的資料夾或檔案是否存在

無名_四葉草發表於2020-04-05

轉自：http://blog.csdn.net/ocean20/article/details/6411316

有時我們需要用VBA程式碼判斷某個資料夾或檔案是否存在，以便進行後續操作。可以用下面的程式碼來實現這個功能：

Public Function FileFolderExists(strFullPath As String) As Boolean

    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
    On Error GoTo 0

End Function

 將上述程式碼放入標準模組中，如果指定的資料夾或檔案存在，FileFolderExists返回True。呼叫上述程式碼的方法：

  • 判斷資料夾是否存在：
Public Sub TestFolderExistence()

    If FileFolderExists("c:/windows/") Then 
        MsgBox "指定的資料夾存在！" 
    Else 
        MsgBox "指定的資料夾不存在！" 
    End If

End Sub

  • 判斷檔案是否存在：
Public Sub TestFileExistence()

    If FileFolderExists("d:/Book1.xls") Then 
        MsgBox "指定的檔案存在！" 
    Else 
        MsgBox "指定的檔案不存在！" 
    End If

End Sub


相關文章