Hoy voy a enseñaros a crear automáticamente una carpeta en Windows desde un formulario Access usando VBA. De esta manera, podremos decidir la ruta en la que guardaremos los informes elaborados o cualquier otro tipo de información de nuestra base de datos sin tener que salir al explorador de Windows.
En el ejemplo que adjunto al final del post, encontraréis un único formulario llamado "Crear carpeta". En el campo "Nombre", podréis escribir el nombre de la carpeta que, por configuración en el propio código, se creará en la carpeta raíz de la unidad C. Evidentemente, esto lo podéis modificar a vuestro gusto y seleccionar la ruta que mejor os venga.
El código a implementar en el evento "Al hacer clic" del botón Crear es el siguiente,
Private Sub Crear_Click()
Dim MiFso As Object
Dim Ruta As String
'La ruta se creará en el directorio raíz de la unidad C y el nombre de la carpeta será el escrito en el campo nombre
Ruta = "C:\" & Form!Nombre
Set MiFso = CreateObject("Scripting.FileSystemObject")
DoCmd.SetWarnings False
On Error GoTo nocrear
MiFso.CreateFolder Ruta
msgbox "Carpeta creada con éxito"
nocrear:
DoCmd.SetWarnings True
End Sub
Vamos a continuar con el ejemplo para verlo de manera más clara. Para ello, selecciona como nombre de carpeta "VBATotal" y, después, pulsa el botón Crear.
Si todo ha ido bien, verás un mensaje de creación de carpeta exitosa y, si navegas a través del explorador de archivos de Windows, la encontrarás en la raíz de la unidad C.
A continuación, te dejo el enlace donde explico el funcionamiento de la función msgbox, por si te interesa profundizar más en ella.
Espero que con este ejemplo, hayas aprendido a crear una carpeta automáticamente en Windows desde un formulario Access usando VBA.
Por último, invitarte a compartir tus dudas en los comentarios o en el foro, y a darle clic a la publicidad de abajo para ayudarme a seguir creando contenido.
Hasta la próxima.
Descarga el archivo del ejemplo
Por favor, haz clic en el anuncio y ayúdame a seguir creando contenido. Solo te lleva un segundo 😉
Últimas publicaciones
0 comentarios