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

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

例如：

Folder1（21.01.2010）
-子文件夹1（22.01.2010）
-子文件夹2（23.01.2010）
--子文件夹1（24.01.2010）
--子文件夹2（25.01.2010）
Folder2（26.01.2010）
-子文件夹1（27.01.2010）

我需要的是一个脚本，检查最新的“日期修改”。 因此，输出应为“27.01.2010”

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

---

也许你能帮我。。。提前谢谢你

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

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

---

然后，您只需迭代查找这些文件夹中的所有文件夹，并保留最新修改日期的记录，即可获得文件夹和修改日期的列表

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

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

保留模板：

  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

保留模板：

  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

---

您需要应用递归，请参阅：。您能给出一些到目前为止的示例代码吗？您需要应用递归，请参阅：。您能给出一些到目前为止您所拥有的示例代码吗？