Logo_Access_global_380x114Favicon_Access_global_180x180Logo_Access_global_380x114Logo_Access_global_380x114
  • Home
  • University
    • Destellos formativos
  • Labs
  • TV
  • Secciones
    • El mundo de Access
    • Explorando VBA
      • Artículos sobre VBA
      • Un trocito de código
    • Entrevistas
      • Profesionales de Access
    • El rincón de Excel
    • Bases de datos
      • MS SQL
      • MySQL
      • postgreSQL
      • SQLite
    • Clases magistrales
    • Utilidades hechas con Access
  • Access en el mundo
  • ¿Quiénes somos?
  • Cómo colaborar
  • Eventos
✕
            No hay resultados Mostrar todos los resultados
            Eliminar una carpeta y todo su contenido
            13/11/2021
            Controladores ODBC para SQLite
            14/11/2021
            Mostrar todos

            Crear carpetas encadenadas

            Publicado por Rafael Andrada
            Categorías
            • Un trocito de código
            Etiquetas
            • Carpetas

            Crear varias carpetas que dependan de una o de una unidad de disco.


            Nivel: Principante

            ¿Cómo funciona?
            Pasándole una cadena de texto estruturada como por ejemplo: C:\Bee-Software\FolderA\FolderB\FolderC\, se obtiene en el disco la sucesión de carpetas.

            Código:
            Public Function mcblnCreateFolders(ByVal strFullPathWhitDriver As String) As Boolean
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Fuente            : https://access-global.net/crear-carpetas-encadenadas/
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Título            : mcblnCreateFolders
            ' Autor             : Rafael Andrada .:McPegasus:. | BeeSoftware | rafael.andrada@access-global.net
            ' Actualizado       : 25/10/2022, 10/10/2021.
            ' Propósito         : Crear varias carpetas que dependan de una o de una unidad de disco. No probado con unidad de red.
            ' Retorno           : Verdadero si se han creado todas las carpetas con éxito.
            ' Argumento/s       : La sintaxis del procedimiento o función consta de/los siguiente/s argumento/s:
            '                     Parte                             Modo                Descripción
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            '                     strFullPathWhitDriver       Obligatorio/Opcional    El valor String especifica la sucesión de carpetas a crear. Ejemplo: C:\Bee-Software\FolderA\FolderB\FolderC\
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            'Test:              : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar todo el procedimiento desde el Sub hasta el End Sub
            '                     al portapapeles y pega en el editor de VBA de tu aplicación MS Access. Descomentar todas las líneas que nos interese (se aconseja seleccionar
            '                     todas las líneas del ejemplo y utilizar el botón 'Bloque sin comentarios' de la barra de herramientas 'Edición').
            '                     Pulsar F5 para ver su funcionamiento.
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            'Test:              : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar el bloque siguiente al
            '                     portapapeles y pega en el editor de VBA. Descomentar la línea que nos interese y pulsar F5 para ver su funcionamiento.
            '
            'Sub mcblnCreateFolders_test()
            '       Debug.Print mcblnCreateFolders("C:\Bee-Software\FolderA\FolderB\FolderC\")
            '
            'End Sub
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            
                Dim bytCount                                    As Byte
                
                Dim strDrive                                    As String
                Dim strPath                                     As String
                Dim strPathWork()                               As String
            
            
                strPath = strFullPathWhitDriver
                strDrive = Left(strPath, 2)
                strPathWork = Split(strPath, "\")
                
                strPath = strDrive
                bytCount = 1
                Do While Not bytCount = UBound(strPathWork) + 1
                    strPath = strPath & "\" & strPathWork(bytCount)
                    If Dir(strPath, vbDirectory) = "" Then
                        MkDir strPath
                        
                    End If
                    bytCount = bytCount + 1
                
                Loop
            
            End Function
            Ver en el repositorio
            Compartir
            0
            Rafael Andrada
            Rafael Andrada

            Entradas relacionadas

            19/03/2023

            Función que convierte cualquier carácter a texto puramente ASCII (Access VBA)


            Leer más
            24/03/2022

            Obtener la fecha del primer día de la semana o último día de la semana en Access VBA


            Leer más
            11/03/2022

            Actualizar una conexión ODBC en tiempo de ejecución


            Leer más

            Comments are closed.

            ETIQUETAS

            Access API BD Botones ComboBox Consultas CountOfLines CStr Diseño DoCmd Excel Exportar Fecha FileSystemObject Filtros For Each...Next Formulario Formularios Funciones Funciones de dominio GetFolder GetWindowRect Google maps Informes InStr Jose Bengoechea Kill Left Listbox Mid Módulos Node ProcCountLines Procedimientos ProcOfLine References Ribbon RunCommand Seguridad Split SysCmd Tablas TreeView VBA VBIDE

            ÚLTIMAS ENTRADAS

            • 0
              ¿Mis procedimientos tienen tratamiento de errores?
              21/03/2023
            • 0
              Moda, mediana y algo más
              20/03/2023

            ¿QUIERES PUBLICITAR TU EMPRESA AQUÍ?

            SUSCRÍBETE A NUESTRO
            NEWSLETTER

            Recibirás información puntual sobre el mundo de Access y VBA

            ¡Próximamente!

            Promovemos el uso de Access y de la programación en VBA en todo el mundo

            Centro de conocimiento


            Toda la sabiduría de los mejores programadores de Access y VBA a tu alcance.

            Legal

            Política de privacidad

            Condiciones de uso

            Condiciones del redactor

            ®Access Global 2021 | All right reserved
                      No hay resultados Mostrar todos los resultados