使用VBA搜索目录中的上次更新文件夹

Question

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

Answer 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")

Answer 2

一种可能的方法：

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

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