Listar archivos

[RAFAEL DE LA TORRE]

Aqui os dejo una pequeña utilidad para listar archivos, que encontre en el baul de los recuerdos, funciona con excel 2010.

Espero que os sirva de utilidad

Un saludo.

listar archivos.zip

[Gerson Pineda]

Rafael

Muy bueno y util, pues de nuevo gracias! sigue asi, sigue asi jeje

Saludos

[smartacm]

Hola!

Yo uso la referencia "Microsoft Scripting Runtime", ésta la agrego a mi proyecto y puedo trabajar de este modo:

Private Sub Archivos(Directorio As String)


    'Variable de tipo FILE y FOLDER para listar los archivos de un path

    Dim misArchivos As File

    Dim miDirectorio As Folder

    Dim fso As FileSystemObject


    'Nuevo objeto FileSystemObject

    Set fso = New FileSystemObject


    ' Obtiene el directorio

    Set miDirectorio = fso.GetFolder(Directorio)


    ' Lista los ficheros de esta carpeta

    For Each misArchivos In miDirectorio.Files

        ActiveCell = misArchivos.Name

        ActiveCell.Offset(0, 1) = misArchivos.Path

        ActiveCell.Offset(0, 2) = misArchivos.DateCreated

        ActiveCell.Offset(1, 0).Activate

    Next misArchivos


End Sub[/CODE]

Salu2!

[nuganda]

Hola, aprovecho este hilo para hacer una consulta parecida, espero que no haya problemas:

El caso es que tenia una macro que funcionaba en el excel 2003 pero no funciona en el 2007.

He estado buscando una macro parecida pero no consigo. Tiene la particularidad de que lista todos los ficheros que hay en todas las subcarpetas que cuelgen de la carpeta que pidamos.

Alguna ayuda ... Gracias

[Gerson Pineda]

nuganda

Este foro no es para consultas (porfavor lee los apartados importantes, como anuncios, recomendaciones y nosrmas), crea un tema en el lugar correspondiente referenciando este tema

Saludos

[nuganda]

ok perdona

saludos