Visual Basic - Carpetas y subcarpetas

Buenas a la hora de crear carpetas con el Mkdir, puedo crear carpetas i subcarpetas a la vez? O he de crear la carpeta y luego las subcarpeta, en la ayuda me dice mediante una variable variant, pero me peta igualmente. Gracias , os adjunto el codigo.

2- Puedo hacer los Print de golpe o he de ir uno a uno? merci.

Function winxp(nom As String)
'' rutina que crea les carpetas i els archius
'' per windows xp i windows 2000

Dim archivo As Integer
Dim ruta As Variant
ruta = "C:\PDA\INIS\" + nom

'----------------------------------
MsgBox (ruta)

MkDir (ruta)

'creo les carpetes
archivo = FreeFile()
Open (ruta + "ftp.ini") For Output As #archivo
' obro l´archiu en mode sobreescritura
Print #archivo, "[USERS]"
Print #archivo, "U=" + nom
Print #archivo, "[IP]"
Print #archivo, "I=ftp://??.??.???.??"
Print #archivo, "[RUTA]"
Print #archivo, "R=C:\Documents and Settind\Promotor\Mis documentos\"

MsgBox nom
End Function

Estimado Giorgio,

Primero directorios, despues subdirectorios.

Juan Carlos Quintanilla.

Gracias, ja me lo imagine pero dudaba porque en ms-dos si que con la funcion mkdir puedo crear carpetas y subcarpetas Gracias.

Si trabajás con W2000 o superior, podrás usar SHCreateDirectoryEx API la cual crea todos los Subdirectorios intermedios si es que no existente.
En AllApi.net encontrarás ejemplos.

Gracias de nuevo, lo provare, el problema es que la instalacion se hace sobre windows xp i algun que otro 98, asi que en un caso si que lo puedo utilizar. Gracias.