使用 VBA 在目录中搜索最后更新的文件夹

【问题标题】：To search for a last updated folder in a directory using VBA使用 VBA 在目录中搜索最后更新的文件夹
【发布时间】：2015-03-06 15:34:41
【问题描述】：

如何获取目录中最后更新的文件夹？比如说我有一个文件夹 C:\test 里面有很多文件夹。我需要最新的文件夹名称

【问题讨论】：

标签： vba directory

【解决方案1】：

这应该可以。

Function GetLastFolder(Path As String)
    Dim FSO, FS, F, DtLast As Date, Result As String
    Set FSO = CreateObject("scripting.FileSystemObject")
    Set FS = FSO.GetFolder(Path).SubFolders
    For Each F In FS
        If F.DateLastModified > DtLast Then
             DtLast = F.DateLastModified
             Result = F.Name
        End If
    Next
    GetLastFolder = Result
End Function

你可以这样调用函数：

GetLastFolder("c:\test")

【讨论】：

【解决方案2】：

一种可能的方法：

使用FileDateTime(path) 函数，然后围绕它构建一个循环。将第一个子文件夹中的名称和时间存储在相应的变量中，然后将时间与该变量与循环的每次传递进行比较。如果较新，则存储新名称/时间值，否则下一个循环通过。

循环完成后，您的变量将保存具有最新修改日期的子文件夹。

【讨论】：