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: