Dear anyone, I am trying to populate the Detials of all my files in to an spread sheet so that I can easily keep track of them. Currently I am able to populate the file name and path for all the files in any directory using the following code
Sub ListFiles()
Dim myRow As Integer
Dim myFile As String
myRow = 1
myFile = Dir("*.xls")
Do Until myFile = ""
Cells(myRow, 1) = myFile
myRow = myRow + 1
myFile = Dir
Cells(myRow, 1) = myFile
Loop
End Sub
But I would also like to have the date modified and/or Created and any narritive appearing in the summary section o f the file properties. I would greatly appreciate any help with the above.
Sub ListFiles()
Dim myRow As Integer
Dim myFile As String
myRow = 1
myFile = Dir("*.xls")
Do Until myFile = ""
Cells(myRow, 1) = myFile
myRow = myRow + 1
myFile = Dir
Cells(myRow, 1) = myFile
Loop
End Sub
But I would also like to have the date modified and/or Created and any narritive appearing in the summary section o f the file properties. I would greatly appreciate any help with the above.