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

Macro para crear listas de carpetas

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para crear listas de carpetas

Mensaje por holaDDD el Jue Dic 03, 2015 7:34 pm

Hola
tengo la siguiente macro que lo que hace es buscar en C u alguna otra ruta que yo le de tods los archivos y me genera un listado de ellos, cuanto pesan, en donde estan ubicados y la ultima fecha de modificacion
lo que deseo es agregarle otra opcion que me diga que usuario fue el ultimo en modificar dicho archivo
si alguiem me pudiera ayudar se lo agradecieria considerablemente
Saludos

Sub ListFiles()
   Const sRoot     As String = "C:\"
   Dim t As Date
 
   Application.ScreenUpdating = False
   With Columns("A:C")
       .ClearContents
       .Rows(1).Value = Split("File,date,size", ",")
   End With
 
   t = Timer
   NoCursing sRoot
   Columns.AutoFit
   Application.ScreenUpdating = True
   MsgBox Format(Timer - t, "0.0s")
End Sub

Sub NoCursing(ByVal sPath As String)
   Const iAttr     As Long = vbNormal + vbReadOnly + _
         vbHidden + vbSystem + _
         vbDirectory
   Dim col         As Collection
   Dim iRow        As Long
   Dim jAttr       As Long
   Dim sFile       As String
   Dim sName       As String

   If Right(sPath, 1) <> "\" Then sPath = sPath & "\"

   Set col = New Collection
   col.Add sPath

   iRow = 1

   Do While col.Count
       sPath = col(1)

       sFile = Dir(sPath, iAttr)

       Do While Len(sFile)
           sName = sPath & sFile

           On Error Resume Next
           jAttr = GetAttr(sName)
           If Err.Number Then
               Debug.Print sName
               Err.Clear

           Else
               If jAttr And vbDirectory Then
                   If Right(sName, 1) <> "." Then col.Add sName & "\"
               Else
                   iRow = iRow + 1
                   If (iRow And &HFFF) = 0 Then Debug.Print iRow
                   Rows(iRow).Range("A1:C1").Value = Array(sName, _
                                                           FileDateTime(sName), _
                                                           FileLen(sName))
               End If
           End If
           sFile = Dir()
       Loop
       col.Remove 1
   Loop
End Sub

holaDDD

Masculino Cantidad de envíos : 4
Edad : 31
Ciudad - Pais : alguno
Version de Excel : 2013
Fecha de inscripción : 03/12/2015

Volver arriba Ir abajo

Re: Macro para crear listas de carpetas

Mensaje por ABELS SQUIVEL el Sáb Dic 05, 2015 3:53 pm

si lo deseas puedo adjuntar el archivo !!!

ABELS SQUIVEL

Masculino Cantidad de envíos : 2
Edad : 29
Ciudad - Pais : MEXICO
Version de Excel : 2007
Fecha de inscripción : 05/12/2015

Volver arriba Ir abajo

aqui esta

Mensaje por holaDDD el Lun Dic 07, 2015 12:31 pm

ABELS SQUIVEL escribió:si lo deseas puedo adjuntar el archivo !!!

este es el archivo con macro
funciona muy bien, solo que me gustaria que tambien me permitiera ver que usuario fue el ultimo que modifico el archivo (los archivos que quiero listar son puros docuentos de office)

holaDDD

Masculino Cantidad de envíos : 4
Edad : 31
Ciudad - Pais : alguno
Version de Excel : 2013
Fecha de inscripción : 03/12/2015

Volver arriba Ir abajo

macro

Mensaje por holaDDD el Lun Dic 07, 2015 12:32 pm

macro

holaDDD

Masculino Cantidad de envíos : 4
Edad : 31
Ciudad - Pais : alguno
Version de Excel : 2013
Fecha de inscripción : 03/12/2015

Volver arriba Ir abajo

Re: Macro para crear listas de carpetas

Mensaje por Contenido patrocinado Hoy a las 12:36 pm


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.