Как получить последнюю обновленную папку в иерархии папок?

Question

У меня есть каталог с подпапками.Эти подпапки также имеют подпапки.Для всех папок существует временная метка с указанием времени их последнего изменения.

Например:

Folder1 (21.01.2010)
-subfolder1 (22.01.2010)
-подпапка2 (23.01.2010)
- подпапка1 (24.01.2010)
- подпапка2 (25.01.2010)
Папка2 (26.01.2010)
- подпапка 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