Saltar al contenido

Featured Replies

publicado

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!

  • 2 weeks later...
publicado

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

publicado

ok perdona

saludos

Crear una cuenta o conéctate para comentar