RE:Alguna API o algo para crear directorios
'MakeSureDirectoryPathExists difiere de MkDir en que no debés controlar errores por si el path que determinás no existe, o no se puede establecer. Obviamente que es mucho mejor la implementación de rutinas de error para saber que es lo que no funcionó, si es que ello tiene importancia para tu aplicación
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
Private Sub Command1_Click()
Dim Ret As Long, strPath As String
strPath = "c:\Mi\Directorio\particular\Creado\conuna\Api\"
If PathIsDirectory(strPath) Then
MsgBox "Ya existe el Path"
Else
Ret = MakeSureDirectoryPathExists(strPath)
End If
If Ret = 1 Then
Debug.Print "Creado"
Else
Debug.Print "No Creado"
End If
End Sub