[Problema de programación VB] Creación de carpetas multinivel

Subcomando privado1_Click()

Atenuar n como entero

Atenuar I como entero

n = 5

Para I = 1 a 5

MkDir App.Path & "\" & I

MakeDir App.Path & "\" & I, 1, n

Siguiente I

End Sub

Sub privado MakeDir(d como cadena, I como entero, n como entero)

MkDir d amp "\" amp; I

Si lt; n Entonces MakeDir d amp "\" amp I, ​​I 1, n

End Sub