[Tasos]

Καλημέρα Γιάννη!

Αν χρειαστεί θα προσθέσεις τη συνάρτηση στην κορυφή του κώδικα και θα αντικαταστησεις:

If Dir(strParentFolder, vbDirectory) = "" Then
        MkDir strParentFolder
End If

με

    Dim result As Long
    result = MakeSureDirectoryPathExists("C:\Users\Giannis\Desktop\Test\Test1\Test2\Test3\") 
    ' Προσοχή!! Η τελευταία διαχωριστική κάθετος ( \ ) είναι απαραίτητη.
    If result = 0 Then
        MsgBox "Δεν ήταν δυνατή η δημιουργία φακέλου/ων"
    Else
        ' Ο/οι φάκελοι δημιουργήθηκαν ή υπάρχουν ήδη.
        ' συνέχισε τον κώδικα σου εδώ....
    End If