Crear una Carpeta en un Directorio con Macros (VBA)

Facil y rapido

Haz tu trabajo con mucha rapidez y de manera más sencilla.

Ponte en contacto.

Soporte

Resuelve todas tus dudas y recibe la mejor asesoría en en los proyectos que desarrolles.

¡Contáctanos!

Reportes

Desempéñate mejor en tus tareas con nuestros reportes en Excel.

¡Te decimos como lograrlo!

En este ejemplo, para crear la Carpeta utilizaremos instrucción mkdir.
Atención, si el directorio no existe se produce un mensaje de error.
En el ejemplo se crea una carpeta llamada «Archivos» en «C: «.

¿En donde pego el código VBA?

Sub CrearCarpeta()
  CreaCarpeta "C:", "Archivos" 
End Sub

Sub CreaCarpeta(Ruta As String, NomCarpeta As String)
 'Verificar si la carpeta existe.
  If Dir(Ruta, vbDirectory + vbHidden) = "" Then 
   'Comprueba que la carpeta no exista para crear el directorio.
    If Dir(Ruta & "" & NomCarpeta, vbDirectory + vbHidden) = "" Then _ 
       MkDir Ruta & "" & NomCarpeta
  End If 
End Sub