Finding Date of Folders

[drsparks]

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

 

[John_w]

Try Folder.DateCreated and Folder.DateLastModified

 

[drsparks]

I tried it did not work. the output it produced was ....

40255.4381018519

and

40375.404849537

 

[VoG]

Try e.g.

Format(Folder.DateCreated, "dd/mm/yyyy hh:mm")

 

[drsparks]

That works

Btw is there anyway to when the oldest file in the folder was created?