Find the latest date of folder

[csKanna]

Hi all,

How to find the latest sub-folder in a folder?

Example:

Let's say I have a folder C:\Temp. I have 100 folders on it. I want to find the latest created/modified sub-folder of C:\Temp\

Please help

Thanks.

[RhinoBull]

Fils System Object could be the simplest way but not the fastest (which is the API way):

Private Sub Command1_Click()
'============================
Dim fso As Object
Dim fldr As Object
Dim sfldr As Object
Dim sDate As Date
Dim sName As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso.GetFolder("c:\")
    
    Screen.MousePointer = vbHourglass
    
    For Each sfldr In fldr.SubFolders
        If sDate < CDate(sfldr.DateLastModified) Then
            sDate = CDate(sfldr.DateLastModified)
            sName = sfldr.Name
        End If
    Next sfldr
    
    Screen.MousePointer = vbDefault
    
    MsgBox "Most recently modifed folder: " & sName & vbNewLine & _
           "Date modified: " & sDate

End Sub