mkdir c:\a\b\c

Shell("cmd /c mkdir c:\a\b\c")

1. Private Sub Command1_Click()  
   2.   
   3. On Error GoTo ErrSub  
   4.   
   5.     Dim i As Integer  
   6.     Dim Array_Dir As Variant  
   7.     Dim Sub_Dir As String  
   8.     Dim El_Path As String  
   9.   
  10.     El_Path = InputBox(" Escribir la ruta del directorio a crear " & _  
  11.                        "con los subdirectorios", _  
  12.                        " Crear varios niveles de directorios")  
  13.       
  14.     If El_Path = vbNullString Then  
  15.         Exit Sub  
  16.     End If  
  17.       
  18.     'Desglosa el path y llena el array con los _  
  19.      subdirectorios que se irán creando  
  20.     Array_Dir = Split(El_Path, "\")  
  21.       
  22.     El_Path = vbNullString  
  23.       
  24.     'Recorre el vector anterior para ir creando uno por uno _  
  25.      comenzando obviamente desde el directorio de primer nivel  
  26.     For i = LBound(Array_Dir) To UBound(Array_Dir)  
  27.         Sub_Dir = Array_Dir(i)  
  28.         If Sub_Dir <> vbNullString Then  
  29.            El_Path = El_Path & Sub_Dir & "\"  
  30.            If Right$(Sub_Dir, 1) <> ":" Then  
  31.               ' Verificamos que no exista  
  32.               If Dir(El_Path, vbDirectory) = vbNullString Then  
  33.                  'Crea la carpeta  
  34.                   Call MkDir(El_Path)  
  35.               End If  
  36.            End If  
  37.         End If  
  38.     Next  
  39.   
  40.     MsgBox " Directorio creado ", vbInformation  
  41.   
  42. 'Error  
  43. Exit Sub  
  44. ErrSub:  
  45.   
  46. MsgBox "Número de error: " & Err.Number & _  
  47.        "Descripción del error: " & Err.Description, vbCritical  
  48.   
  49.   
  50. End Sub

 
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'create the directory "c:\this\is\a\test\directory\", if it doesn't exist already
    MakeSureDirectoryPathExists "c:\this\is\a\test\directory\"
End Sub