Imprimir página | Cerrar ventana

Carpetas y subcarpetas

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77259
Fecha de impresión: 15/Agosto/2020 a las 02:26


Tema: Carpetas y subcarpetas
Publicado por: buho
Asunto: Carpetas y subcarpetas
Fecha de publicación: 10/Agosto/2013 a las 08:08
Esta si mal no recuerdo es de Happy.
Procedimiento que me recorre carpetas, ficheros y subcarpetas a partir de una ruta dada y me  muestra atributos de lso ficheros encontrados:


Sub MuestraFicherosCarpetas(ByVal NombreCarpeta)
    Dim ObjetoFSO As Object, carpeta As Object
    Dim subCarpeta As Object, archivos As Object
    Dim archivo As Object
    Set ObjetoFSO = CreateObject("Scripting.FileSystemObject")
    Set carpeta = ObjetoFSO.GetFolder(NombreCarpeta)
    Set archivos = carpeta.Files
    For Each archivo In archivos
        'aqui sacamos la lista de los ficheros
        'y las propiedades que quieras de ellos
        Debug.Print NombreCarpeta _
                  & "\" & archivo.Name
        Debug.Print archivo.DateCreated
        Debug.Print archivo.datelastaccessed
        Debug.Print archivo.Size
        Debug.Print archivo.DateLastModified
        Debug.Print archivo.Attributes
        Debug.Print archivo.Type
    Next
    Set archivos = Nothing
    ' Esto sería para Carpetas y subcarpetas
    ' y archivos contenidas en la carpeta actual.
    ' Si observas, utilizamos recursividad, pues
    'la funcion se llama así misma:
    For Each subCarpeta In carpeta.SubFolders
        MuestraFicherosCarpetas NombreCarpeta _
                              & "\" & subCarpeta.Name
    Next
    Set carpeta = Nothing
    Set ObjetoFSO = Nothing
 
End Sub


-------------
Por fin he hecho algo bueno, ser abuelo ¡y porque no lo he hecho yo!



Imprimir página | Cerrar ventana