Macro to Extract File Name as well as Date modified

[howard]

I have macro to extract File names in a fold but need it modified to also extract date modified

Sub LoopThroughFiles()
 
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
 Sheets("File names").Select
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFolder = oFSO.GetFolder("C:\Sales Reports")
 
For Each oFile In oFolder.Files
 
    Cells(i + 1, 1) = oFile.Name
 
    i = i + 1
 
Next oFile
 
End Sub

Your assistance is most appreciated

 

[offthelip]

try adding this line :

Cells(i + 1, 1) = oFile.Name
Cells(i + 1, 2) = oFile.DateLastModified  ' add this line in under your existing line. this will put it in column B

 

[howard]

thanks for the help. Code works perfectly