如何檢查資料夾是否存在，如果不存在則創建它？

您是否曾經嘗試從 Excel 工作表中檢查某個資料夾是否存在？在本文中，我將討論如何檢查指定路徑下是否存在某個資料夾，如果不存在，該資料夾將自動在該路徑下創建。

使用 VBA 程式碼檢查特定檔案路徑中的資料夾是否存在

如果資料夾不存在於特定檔案路徑中，請使用 VBA 程式碼創建它

使用 VBA 程式碼檢查特定檔案路徑中的資料夾是否存在

以下 VBA 程式碼可能有助於您檢查特定檔案路徑中是否存在資料夾，請按照以下步驟操作：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下程式碼粘貼到模組視窗中。

VBA 程式碼：檢查特定檔案路徑中是否存在資料夾：

Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice
    Dim sFolderPath As String
    sFolderPath = "C:\Users\DT168\Desktop\Test folder"
    If Right(sFolderPath, 1) <> "\" Then
        sFolderPath = sFolderPath & "\"
    End If
    If Dir(sFolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Folder doesn't exist", vbInformation, "Kutools for Excel"
    End If
End Sub

注意：在上述程式碼中，您應該將資料夾路徑和名稱 C:\Users\DT168\Desktop\Test folder 更改為您需要的內容。

3. 然後按 F5 鍵運行程式碼，您將獲得以下結果：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

如果資料夾不存在於特定檔案路徑中，請使用 VBA 程式碼創建它

檢查某個檔案路徑中是否存在資料夾，如果不存在，則在此特定檔案路徑下創建它，以下 VBA 程式碼可能幫助您完成此任務。

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下程式碼粘貼到模組視窗中。

VBA 程式碼：如果資料夾在檔案路徑中不存在，則創建它：

Sub MakeMyFolder()
'Updateby Extendoffice
    Dim fdObj As Object
    Application.ScreenUpdating = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    If fdObj.FolderExists("C:\Users\DT168\Desktop\Test folder") Then
        MsgBox "Found it.", vbInformation, "Kutools for Excel"
    Else
        fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
        MsgBox "It has been created.", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

注意：在上述程式碼中，您應該將資料夾路徑和名稱 C:\Users\DT168\Desktop\Test folder 更改為您需要的內容。

3. 粘貼程式碼後，按 F5 鍵運行它：

（1.）如果資料夾存在，將彈出一個提示框，如下方截圖所示：

（2.）如果資料夾不存在，它將立即在指定路徑下創建，並彈出一個提示框提醒您該資料夾已創建，請參見截圖：