如何檢查文件夾是否存在以及是否創建文件夾？

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

使用VBA代碼檢查文件夾是否存在于特定文件路徑中

使用VBA代碼在特定文件路徑中不存在時創建文件夾

使用VBA代碼檢查文件夾是否存在于特定文件路徑中

以下VBA代碼可以幫助您檢查特定文件路徑中是否存在文件夾，請執行以下操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：檢查特定文件路徑中是否存在文件夾：

Sub Test_Folder_Exist_With_Dir()Updateby ExtendofficeDim sFolderPath As StringsFolderPath = "C:UsersDT168DesktopTest folder"If Right(sFolderPath, 1) <> "" ThensFolderPath = sFolderPath & ""End IfIf Dir(sFolderPath, vbDirectory) <> vbNullString ThenMsgBox "Folder exist", vbInformation, "Kutools for Excel"ElseMsgBox "Folder doesnt exist", vbInformation, "Kutools for Excel"End IfEnd SubCopy

請注意： 在上面的代碼中，您應該更改文件夾路徑和名稱 C： UsersDT168DesktopTest文件夾 根據您的需要。

3。 然后按 F5 運行此代碼的關鍵，您將獲得以下結果：

使用VBA代碼在特定文件路徑中不存在時創建文件夾

檢查文件夾是否存在于文件路徑中（如果不存在），以在此特定文件路徑下創建該文件夾，以下VBA代碼可以幫助您完成此工作。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：如果文件路徑中不存在，請創建一個文件夾：

Sub MakeMyFolder()Updateby ExtendofficeDim fdObj As ObjectApplication.ScreenUpdating = FalseSet fdObj = CreateObject("scripting.FileSystemObject")If fdObj.FolderExists("C:UsersDT168DesktopTest folder") ThenMsgBox "Found it.", vbInformation, "Kutools for Excel"ElsefdObj.CreateFolder ("C:UsersDT168DesktopTest folder")MsgBox "It has been created.", vbInformation, "Kutools for Excel"End IfApplication.ScreenUpdating = TrueEnd SubCopy

備注：在上面的代碼中，您應該更改文件夾路徑和名稱 C： UsersDT168DesktopTest文件夾 根據您的需要。

3。 粘貼代碼后，按 F5 運行它的關鍵：

（1.）如果該文件夾存在，則會彈出一個提示框，如下圖所示：

（2.）如果該文件夾不存在，則會立即在特定路徑下創建該文件夾，并彈出一個提示框，提醒您該文件夾已創建，請參見屏幕截圖：

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel