Comment trouver le dernier sous-dossier modifié?

Question

J'ai un dossier de journal qui contient des sous-dossiers avec les fichiers journaux d'un serveur de construction. Chaque fois qu'une génération est déclenchée, un nouveau sous-dossier est créé avec des fichiers journaux. Je veux trouver le chemin vers le dernier sous-dossier créé dans le dossier de construction principal.

Quelqu'un peut-il me diriger dans la bonne direction?

Answer 1

Vous pouvez utiliser FileSystemObject.

Set fs = CreateObject("Scripting.FileSystemObject") 
Set MainFolder = fs.GetFolder("C:\Docs") 
For Each fldr In MainFolder.SubFolders 
    ''As per comment 
    If fldr.DateLastModified > LastDate Or IsEmpty(LastDate) Then 
     LastFolder = fldr.Name 
     LastDate = fldr.DateLastModified 
    End If 
Next 

MsgBox LastFolder