I currently have a code that pulls the name, path, and size of a file from the directory. I need this code to also like the date range for the folder. (could be created to last modified). Below is the current code. any help would be appreciated.
Sub ListFoldersAndInfoSystemsFolder()
Dim FSO As Object
Dim Folder As Object
Dim FolderName As String
Dim R As Long
Dim Rng As Range
Dim SubFolder As Object
Dim Wks As Worksheet
FolderName = "I:\Systems\"
Set Wks = Worksheets("Sheet2")
Set Rng = Wks.Range("A2")
Wks.UsedRange.Offset(1, 0).ClearContents
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(FolderName)
R = Rng.Row
Rng.Cells(1, 1) = Folder.Name
Rng.Cells(1, 2) = Folder.Path
Rng.Cells(1, 3) = Folder.Size
For Each Folder In Folder.SubFolders
Rng.Cells(R, 1) = Folder.Name
Rng.Cells(R, 2) = Folder.Path
Rng.Cells(R, 3) = Folder.Size
R = R + 1
Next Folder
Set FSO = Nothing
Sheets("Sheet2").Select
Cells.Find(What:="Projects", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireRow.Delete
End Sub