copiar carpetas del disco "C" en planilla exel (sin hipervinculo)

30/12/2005 - 00:33 por mARIO | Informe spam
Como puedo pegar el nombre de archivo, fecha tamaño de una carpeta
predeterminada en una planilla exel

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
30/12/2005 - 06:35 | Informe spam
hola, mario !

Como puedo pegar el nombre de archivo, fecha tama#o de una carpeta predeterminada en una planilla exel



el siguiente ejemplo [que puedes adaptar para otras necesidades]...
1) 'toma' la carpeta predeterminada que pongas en 'A1' [p.e. -> c:uta y\sub-carpeta]
2) pone en el rango 'A2:G2' los titulos de 'algunos' atributos de los archivos en 'esa' carpeta
3) a partir de la fila 3, vacia los nombres [y sus atributos] que se encuentran en la carpeta 'solicitada' ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub ListarArchivosEnCarpeta()
Application.ScreenUpdating = False
Dim Carpeta As String, Fila As Long, Archivo, RutaCorta As String
Carpeta = Range("a1"): Range("a1").ClearContents
Fila = 3
Range("a2:g2") = _
Array("Nombre", "Tamaño", "Tipo", "Creado", "Acceso", "Modificado", "ShortName")
With CreateObject("Scripting.FileSystemObject")
With .GetFolder(Carpeta): RutaCorta = .ShortPath
For Each Archivo In .Files
With Archivo
Range("a" & Fila & ":g" & Fila) = _
Array(.Name, .Size, .Type, .DateCreated, .DateLastAccessed, .DateLastModified, .ShortName)
End With
Fila = Fila + 1
Next
End With
End With
Range("a1:g1").EntireColumn.AutoFit: Range("a1") = Carpeta: Range("d1") = RutaCorta
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida