Snasui Excel Forum

Code: Select all

Cells(nextRow, 6) = objFile.DateLastModified

Code: Select all

Option Explicit

Sub listAllFile()

Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Scripting.Folder

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Range("B2").Value)

Call GetFileDetails(objFolder)

End Sub

Function GetFileDetails(objFolder As Scripting.Folder)

Dim objFile As Scripting.File
Dim nextRow As Long
Dim objSubFolder As Scripting.Folder


nextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
For Each objFile In objFolder.Files
    Cells(nextRow, 1) = objFile.Name
    Cells(nextRow, 2) = objFile.Path
    Cells(nextRow, 3) = objFile.Size / 1024
    Cells(nextRow, 4) = objFile.Type
    Cells(nextRow, 5) = objFile.DateCreated
    Cells(nextRow, 6) = objFile.DateLastModified
    nextRow = nextRow + 1
Next

For Each objSubFolder In objFolder.SubFolders
    Call GetFileDetails(objSubFolder)
Next

    
End Function

Code: Select all

Sub GetFileDetails(objFolder As Scripting.Folder)
    
    Dim objFile As Scripting.File
    Dim nextRow As Long
    Dim objSubFolder As Scripting.Folder
    Dim yr As Integer
    
    nextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    For Each objFile In objFolder.Files
        yr = Year(objFile.DateCreated)
        If yr <= 2015 Then
            Cells(nextRow, 1) = objFile.Name
            Cells(nextRow, 2) = objFile.Path
            Cells(nextRow, 3) = objFile.Size / 1024
            Cells(nextRow, 4) = objFile.Type
            Cells(nextRow, 5) = objFile.DateCreated
            Cells(nextRow, 6) = objFile.DateLastModified
            nextRow = nextRow + 1
        End If
    Next
    
    For Each objSubFolder In objFolder.SubFolders
        Call GetFileDetails(objSubFolder)
    Next
    
        
End Sub