Extract file details from folder and subfolders - VBA

[jwb1012]

Hi everyone - I found this great code below that extracts the file names for all files in my folder. I was wondering if anyone knows how to also add the: "file path"; "file size"; "last modified date"; and "last modified by".

Please let me know if you have any thoughts!

Sub Auto_Open()
  Dim FileSystem As Object
  Dim HostFolder As String
    HostFolder = "C:\Users\e314704\Desktop\LCST Gain Share\Reports"
    
  Set FileSystem = CreateObject("Scripting.FileSystemObject")
  DoFolder FileSystem.getFolder(HostFolder)
End Sub
Sub DoFolder(Folder)
  Dim SubFolder
  For Each SubFolder In Folder.SubFolders
    DoFolder SubFolder
  Next
  i = Sheets("File Extraction").Cells(Rows.Count, 1).End(xlUp).Row + 2
  Dim File
  For Each File In Folder.Files
    Sheets("File Extraction").Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
        File.Path, TextToDisplay:=File.Name
    i = i + 1
  Next
End Sub

 

[starl]

You need a list of the Properties of the FileSystemObject: https://msdn.microsoft.com/en-us/library/18b41306(v=vs.84).aspx
scroll down that page and you'll see the available properties. Click on the one you want and it will show you how to use it.
For example, to get the size: File.Size