如何检查文件夹是否存在以及是否创建文件夹？

网友投稿 401 2023-12-15

如何检查文件夹是否存在以及是否创建文件夹？

您是否曾经尝试从Excel工作表中检查文件夹是否存在？在本文中，我将讨论检查指定路径中是否存在文件夹，如果不存在，该文件夹将在该路径下自动创建。

使用VBA代码检查文件夹是否存在于特定文件路径中

使用VBA代码在特定文件路径中不存在时创建文件夹

使用VBA代码检查文件夹是否存在于特定文件路径中

以下VBA代码可以帮助您检查特定文件路径中是否存在文件夹，请执行以下操作：

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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 doesnt exist", vbInformation, "Kutools for Excel" End If End Sub

Copy

请注意： 在上面的代码中，您应该更改文件夹路径和名称 C：\ Users \ DT168 \ Desktop \ Test文件夹 根据您的需要。

3。然后按 F5 运行此代码的关键，您将获得以下结果：

使用VBA代码在特定文件路径中不存在时创建文件夹

检查文件夹是否存在于文件路径中（如果不存在），以在此特定文件路径下创建该文件夹，以下VBA代码可以帮助您完成此工作。

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

Copy

备注：在上面的代码中，您应该更改文件夹路径和名称 C：\ Users \ DT168 \ Desktop \ Test文件夹 根据您的需要。

3。粘贴代码后，按 F5 运行它的关键：

（1.）如果该文件夹存在，则会弹出一个提示框，如下图所示：

（2.）如果该文件夹不存在，则会立即在特定路径下创建该文件夹，并弹出一个提示框，提醒您该文件夹已创建，请参见屏幕截图：

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。