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

list files and folders VBA

Ver el tema anterior Ver el tema siguiente Ir abajo

list files and folders VBA

Mensaje por holaDDD el Lun Dic 14, 2015 9:01 pm

Hello, Could someone help me with this macro?
The next macro, make a list of files and folders of a rut tan I specific
But I’ll like than could add me the last user than modify the file (word and excel files generally), could someone modify the code please?

Código:


Sub ListFiles()
    Const sRoot     As String = "D:\"
    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 : 32
Ciudad - Pais : alguno
Version de Excel : 2013
Fecha de inscripción : 03/12/2015

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.