I found the following code that creates a hyperlinked list of all files in a folder. How can the code be edited to also bring back properties of the file. I would like to see dates: created, last modified, last accessed.
Sub HyperlinkXLSFiles() Dim lCount As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False On Error Resume Next With Application.FileSearch .NewSearch 'Change path to suit .LookIn = "C:\MyDocuments\Testings" .FileType = msoFileTypeExcelWorkbooks ' .Filename = "Book*.xls" If .Execute > 0 Then 'Workbooks in folder For lCount = 1 To .FoundFiles.Count 'Loop through all. ActiveSheet.Hyperlinks.Add Anchor:=Cells(lCount, 1), Address:= _ .FoundFiles(lCount), TextToDisplay:= _ Replace(.FoundFiles(lCount), "C:\MyDocuments\Testings\", "") Next lCount End If End With On Error GoTo 0 Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True End Sub