Sub GetDateCreated()
Const sPath = "C:\Users\HYMC\Excel\Helping\" 'Change to suit
Dim oFS As Object
Dim i As Integer
Dim sFil As String
sFil = Dir(sPath & "*.xl*") 'xl here adds flexibility
Set oFS = CreateObject("Scripting.FileSystemObject")
Do While sFil <> ""
Range("A65536").End(xlUp)(2).Value = sPath & sFil
sFil = Dir
Loop
'List the Created Date
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Range("B" & i) = oFS.GetFile(Range("A" & i)).DateCreated
Next i
Range("A2", Range("B" & Rows.Count).End(xlUp)).Sort [b2], 2
[A12:B400].ClearContents
End Sub