Macro para crear carpeta con aviso
Necesito Macro para crear una carpeta, primero que revise si ya existe, si no existe, entonces que la cree y que envíe una pantalla de aviso.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código, cambia "C:\trabajo\carpeta\", por la ruta y la carpeta que vayas a crear.
Sub CreaDir() 'Por.Dante Amor carpeta = "C:\trabajo\carpeta\" If Dir(carpeta, vbDirectory) = "" Then MkDir carpeta MsgBox "Se creó la carpeta: " & carpeta End If End Sub
Saludos.Dante Amor
Recuerda valorar la respuesta.
