我如何知道我是否想知道vba中的上次修改日期文件夹名称

问题描述

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

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

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

任何人的帮助

解决方法

最后一个文件夹（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