Crear una carpeta automáticamente en Windows desde un formulario Access usando VBA

crear-carpeta-vba

Escrito por Administrador

13 de diciembre de 2021

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.

bloquear-access-fecha

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.

bloquear-access-fecha
bloquear-access-fecha

Espero que con este ejemplo, hayas aprendido a crear una carpeta automáticamente en Windows desde un formulario Access usando VBA.

Hasta la próxima.

Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Quizá te interese,

Contacto