i have the following code to create the last directory...

sFolder = "\\corpnas\shared\fleet insurance tracker\" & Range("c6").Value & "\" & Format(Range("a2"), "mmmm yyyy") & "\" & Format(Range("a2"), "d") & "\"
sFile = Format(Range("a2"), "mm-dd-yy") & " " & Range("b3") & ".xlsx"
If (Dir(sFolder, vbDirectory) <> "") = False Then
MkDir sFolder
End If

How can i change it i want it to check if both of these directories \ & Range("c6").Value & and " & Format(Range("a2"), "mmmm yyyy") & " exist?? if not, create them as well..

thanks in advance.