Simple macro create folder if not exist else move on

[JohnZ1156]

I'm looking for a simple solution, if there is one, for a macro to check for a folder, create it if it doesn't exist, or move on if it does exist
Here's part of what I have:

Sub PrintPDF()

    Dim ws As Worksheet
    Dim vFile As Variant
    Dim sFile As String
    Dim LDate As Date
    Dim datey As String
    Dim dateym As String
    datey = Format(CStr(Now), "yyyy")
    dateym = Format(CStr(Now), "yyyy-mm")
    
     MkDir "C:\Users\Name\Documents\Finance\Consolidations\" & datey & "\" & dateym

End Sub

 

[John_w]

    If Dir("C:\Users\Name\Documents\Finance\Consolidations\" & datey, vbDirectory) = vbNullString Then MkDir "C:\Users\Name\Documents\Finance\Consolidations\" & datey
    If Dir("C:\Users\Name\Documents\Finance\Consolidations\" & datey & "\" & dateym, vbDirectory) = vbNullString Then MkDir "C:\Users\Name\Documents\Finance\Consolidations\" & datey & "\" & dateym

 

[JohnZ1156]

Hi John_W.

Excellent !!! Thank you !!!
I only made 1 change:

If Dir("C:\Users\Name\Documents\Finance\Consolidations\" & datey, vbDirectory) = vbNullString _
Then MkDir "C:\Users\Name\Documents\Finance\Consolidations\" & datey
If Dir("C:\Users\Name\Documents\Finance\Consolidations\" & datey & "\" & dateym, vbDirectory) = vbNullString _
Then MkDir "C:\Users\Name\Documents\Finance\Consolidations\" & datey & "\" & dateym