............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro Para Listar Archivos de una CARPETA y sus subcarpetas.

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro Para Listar Archivos de una CARPETA y sus subcarpetas.

Mensaje por Nostradamus el Jue Feb 14, 2008 9:00 pm

Hay alguna macro para realizar un catalogo de archivos en Hoja excel.

Nostradamus

Cantidad de envíos : 6
Fecha de inscripción : 26/01/2008

Volver arriba Ir abajo

Re: Macro Para Listar Archivos de una CARPETA y sus subcarpetas.

Mensaje por GalileoGali el Vie Feb 15, 2008 10:41 am

Prueba con esto:


Código:
Sub IndizadorArchivos()
Dim RUTA As String, RutaArchivo as string
RUTA = InputBox("Indique aquí la Ruta de la Carpeta a revisar")
With Application.FileSearch
.NewSearch
.LookIn = RUTA:
.SearchSubFolders = True
.MatchTextExactly = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute(msoSortOrderDescending) > 0 Then
MsgBox "Hay " & .FoundFiles.Count & " archivo(s) encontrados."
For i = 1 To .FoundFiles.Count
 
RutaArchivo =.FoundFiles(i)
Cells(i, 2).Value = RutaArchivo
Cells(i, 5).Value = Mid(RutaArchivo, InStrRev(RutaArchivo, "\") + 1)

Cells(i, 3).Value = FileDateTime(.FoundFiles(i))
Cells(i, 4).Value = FileLen(.FoundFiles(i))
Next i
Else
MsgBox "No fue localizado ningún archivo."
End If
End With
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro Para Listar Archivos de una CARPETA y sus subcarpetas.

Mensaje por GalileoGali el Sáb Abr 19, 2008 5:42 pm

Para utilizar co la propiedad FileType ahi va una lista de las cosntantes previstas por Microsoft
Constant Value
msoFileTypeAllFiles 1
msoFileTypeBinders 6
msoFileTypeCalendarItem 11
msoFileTypeContactItem 12
msoFileTypeDatabases 7
msoFileTypeDataConnectionFiles 17
msoFileTypeDesignerFiles 22
msoFileTypeDocumentImagingFiles 20
msoFileTypeExcelWorkbooks 4
msoFileTypeJournalItem 14
msoFileTypeMailItem 10
msoFileTypeNoteItem 13
msoFileTypeOfficeFiles 2
msoFileTypeOutlookItems 9
msoFileTypePhotoDrawFiles 16
msoFileTypePowerPointPresentations 5
msoFileTypeProjectFiles 19
msoFileTypePublisherFiles 18
msoFileTypeTaskItem 15
msoFileTypeTemplates 8
msoFileTypeVisioFiles 21
msoFileTypeWebPages 23
msoFileTypeWordDocuments 3

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro Para Listar Archivos de una CARPETA y sus subcarpetas.

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.