Question

我有一个包含子文件夹的目录。这些子文件夹也有子文件夹。对于所有文件夹，存在一个时间戳，其中包含上次修改时的时间。

例如：

Folder1中（21.01.2010）
-subfolder1（22.01.2010）
-subfolder2（2010年1月23日）
--subfolder1（2010年1月24日）
--subfolder2（2010年1月25日）
文件夹2（2010年1月26日）
-subfolder 1（27.01.2010）

我需要的是一个检查最新“修改日期”的脚本。所以输出应该是“27.01.2010”。

我不知道如何开始...是否有可以列出所有文件夹的功能？

也许你可以帮助我......提前谢谢你！

Answer 1

获取文件夹列表和修改日期

Sub GetLastModified(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 in fc
        s = s & f1.Name 
        s = s & f1.DateLastModified
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub

然后您只需要迭代查找这些文件夹中的所有文件夹并保留最新修改日期的记录

Answer 2

保留模板：

  dim fs, foldercollection ,filecollection, folders, files

  Set fs=CreateObject("Scripting.FileSystemObject")
  Set fileobject = fs.GetFolder("c:\")

  Set foldercollection = fileobject.SubFolders 
  folders = ""
  files = ""
  For Each folder in foldercollection 
    folders = folders & folder.name & Chr(13)
  Next 
  Set foldercollection=nothing
  Set filecollection = fileobject.Files
  For Each file in filecollection 
    files = files & file.name & Chr(13)
  next

  MsgBox folders & files

如何检索文件夹层次结构中最后更新的文件夹？

2 个答案: