[nisgia]

Φίλε Θοδωρή, σαφώς και η MakeSureDirectoryPathExists είναι η καλύτερη λύση για το θέμα σου
όμως έχει αρκετό ενδιαφέρον μια τέτοια υλοποίηση χωρίς "εξωτερική" βοήθεια.

Δοκίμασε λοιπόν και την παρακάτω αναδρομική διαδικασία η οποία κάνει σχεδόν
την ίδια δουλειά με την MakeSureDirectoryPathExists.

Sub SecurePath(strPath As String)
    Static stintPos As Integer
    Dim strDir As String

    If Right(strPath, 1) <> "\" Then
        strPath = strPath & "\"
    End If

    stintPos = InStr(stintPos + 1, strPath, "\")
    If stintPos > 0 Then
        strDir = Left(strPath, stintPos)
        If Len(Dir(strDir, vbDirectory)) = 0 Then
            MkDir (strDir)
        End If
        SecurePath strPath
    End If
    stintPos = 0
End Sub

Μπορείς να την καλείς ως εξής:

SecurePath "C:\Folder1\Folder2\Folder3\Folder4\Folder5"

Τα λέμε!
Γιάννης