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:
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
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!
