( henzus | 2020. 08. 03., h – 08:27 )

Sikerült megcsinálni a scriptet, itt van hátha más is tudja hasznosítani:

Function GetRecentFolder(path)
  Dim fso, folder
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set GetRecentFolder = Nothing
  For Each folder in fso.GetFolder(path).SubFolders
    If GetRecentFolder is Nothing  Then
      Set GetRecentFolder = folder
    ElseIf folder.DateLastModified > GetRecentFolder.DateLastModified AND instr (folder.Name, "DATA") Then
      Set GetRecentFolder = folder
    End If
  Next
End Function