как мне узнать, хочу ли я узнать имя папки с датой последнего изменения в vba

Question

Set fso = CreateObject("Scripting.FileSystemObject")
Set froot = fso.GetFolder(strstartfldr)

For Each fldr In froot.SubFolders
    UserForm1.ComboBox1.AddItem fldr.DateCreated
Next

в этой программе я могу получить список подпапок в combbobox1, но из этой подпапки как я могу узнать, какое имя папки было изменено последним, я уверен, что есть простой код, но не могу понять

кто-нибудь поможет

Answer 1

Последняя папка (FSO)

• Следующая функция получает имя последней созданной папки.

Код

Option Explicit

Function LastFolder(FolderPath As String) As String
    
    Dim fso As Object
    Dim froot As Object
    Dim fldr As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set froot = fso.GetFolder(FolderPath)
    Dim fName As String
    Dim fDC As Date
    Dim TMP As Date
    For Each fldr In froot.subfolders
        TMP = fldr.DateCreated
        If TMP > fDC Then
            fDC = TMP
            fName = fldr.Name
        End If
    Next fldr
    
    LastFolder = fName

End Function

Sub testLastFolder()
    Debug.Print LastFolder("F:\StackOverFlow")
End Sub