Adding file date created to list
<p>I've been trying to edit a bit of code which gives a list of all files in all subfolders to also give me the date created in the next column but am unsure how. Here is the code i'm working with: It gets the file paths fine but not the file DateCreateds</p>

<pre><code> Sub startIt()

   Dim FileSystem As Object
   Dim HostFolder As String

   HostFolder = "C:\folderthing"

   Set FileSystem = CreateObject("Scripting.FileSystemObject")
   DoFolder FileSystem.GetFolder(HostFolder)

 End Sub

 Sub DoFolder(Folder)


    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
      DoFolder SubFolder
    Next

    i = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Dim File
    For Each File In Folder.Files
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
          File.Path, TextToDisplay:=File.Path
      ActiveSheet.Add TextToDisplay:=File.DateCreated

      i = i + 1

    Next


End Sub
</code></pre>