** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Carpetas y subcarpetas
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCarpetas y subcarpetas

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ, nieto desesperado

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11321
Enlace directo a este mensaje Tema: Carpetas y subcarpetas
    Enviado: 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!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable