我怎么知道我是否想知道 vba 中的最后修改日期文件夹名称

【问题标题】：how do i know if i want to know last modified date folder name in vba我怎么知道我是否想知道 vba 中的最后修改日期文件夹名称
【发布时间】：2020-12-21 02:16:01
【问题描述】：

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

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

在这个程序中，我可以在 combbobox1 中获取子文件夹列表但是从这个子文件夹我怎么知道哪个是最后修改的文件夹名称我确定有简单的代码，但无法弄清楚

谁来帮忙

【问题讨论】：

标签： vba directory subdirectory last-modified

【解决方案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

【讨论】：