[VB6] Creazione directory e sottodirectory

[x69asterix]

Ciauz a tutti,
Domanda:
In questo modo mi creo una cartella in una directory:

Private Sub Command9_Click()

Dim NomeFile As String, i As Integer
NomeFile = Dir1.Path & "\IMAGE\"
i = MakeSureDirectoryPathExists(NomeFile)
If i = 1 Then
Print "Directory " & NomeFile & " creata"
Else
Print "Directory " & NomeFile & " non creata"
End If
End Sub

Bene il codice ha funzionato, ma se nella stessa directory voglio creare + cartelle come faccio, in questo modo al massimo ottengo delle sottocartelle, ma non è il mio scopo.

Ciauz....