vba - 将创建的文件日期添加到列表中

Question

我一直在尝试编辑一些代码，它给出了所有子文件夹中所有文件的列表，也给了我在下一列中创建的日期，但我不确定如何。这是我正在使用的代码:它可以很好地获取文件路径，但不能获取文件 DateCreateds

 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

Answer 1

如果您想要 列中的日期乙 ， 然后:

Sub startIt()

   Dim FileSystem As Object
   Dim HostFolder As String

   HostFolder = "C:\TestFolder"

   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
      Cells(i, 2).Value = File.DateCreated

      i = i + 1

    Next


End Sub