Как найти последнюю измененную подпапку?

У меня есть папка журнала, которая содержит вложенные папки с файлами журнала сервера сборки. Каждый раз, когда запускается сборка, создается новая подпапка с файлами журнала. Я хочу найти путь к последней созданной подпапке в основной папке сборки.

Может кто-то указать мне верное направление?


vbscript
person Amit    schedule 04.11.2010    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Вы можете использовать FileSystemObject.

Set fs = CreateObject("Scripting.FileSystemObject")
Set MainFolder = fs.GetFolder("C:\Docs")
For Each fldr In MainFolder.SubFolders
    ''As per comment
    If fldr.DateLastModified > LastDate Or IsEmpty(LastDate) Then
        LastFolder = fldr.Name
        LastDate = fldr.DateLastModified
    End If
Next

MsgBox LastFolder
person Fionnuala    schedule 04.11.2010