Vba if Path Doesnt Exist Continue

 How to check if a folder exists and if not create it?

Have you ever tried to check if a folder exists or not from Excel worksheet? In this article, I will talk about checking if a folder exists in a specified path, if not, the folder will be created automatically under the path.

Check if a folder exists in a specific file path with VBA code

Create the folder if not exists in a specific file path with VBA code

---

Check if a folder exists in a specific file path with VBA code

The following VBA code may help you to check if a folder exists in a specific file path, please do as this:

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Check if a folder exists in a specific file path:

          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                  

Note: In the above code, you should change the folder path and name C:\Users\DT168\Desktop\Test folder to your needed.

3. Then press F5 key to run this code, you will get the following results:

---

Create the folder if not exists in a specific file path with VBA code

Check if a folder exists in a file path, if not, to create it under this specific file path, the following VBA code may help you to finish this job.

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Create a folder if not exists in a file path:

          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                  

Note: In the above code, you should change the folder path and name C:\Users\DT168\Desktop\Test folder to your needed.

3. After pasting the code, and press F5 key to run it:

(1.) If the folder exists, a prompt box will pop out as following screenshot shown:

(2.) If the folder does not exist, it will be created under the specific path at once, and a prompt box will pop out to remind you the folder has been created, see screenshot:

---

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

• Reuse: Quickly insert complex formulas, charts  and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

---

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

• Enable tabbed editing and reading in Word, Excel, PowerPoint , Publisher, Access, Visio and Project.
• Open and create multiple documents in new tabs of the same window, rather than in new windows.
• Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

boucheroverearrever.blogspot.com

Source: https://www.extendoffice.com/documents/excel/4182-excel-check-if-folder-exists.html

Share this post