Trouver l'avant dernier dossier créé parmi une ensemble de dossier

Bonjour à tous,

je rencontre un petite difficulté à trouver sous VBA (sous forme de function) le chemin de l'avant dernier dossier créé, parmi une liste de dossier, eux même se trouvant dans un dossier.

J'ai réussi à trouver (sur internet ) un bout de code qui me permet de trouver le dernier dossier créé dans un dossier mais comme les variables enregistrent du texte je ne peux pas faire des calculs avec pour déterminer l'avant dernier...

Vous trouverez ci-dessus la fonction. Si vous disposez d'une meilleure approche ou d'un moyen d'obtenir une fonction qui renvoie le chemin de l'avant dernier dossier créé dans un dossier je suis preneur

Je vous remercie d'avance pour votre aide

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

Bonjour,

j'ai finalement décidé d'utiliser le folderpicker pour réaliser mes tâches de sélection des dossiers . C'est à l'évidence plus simple...

Merci à tous.

bonjour,

une proposition

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

Bonjour h2so4,

Désolé c'est maintenant que je vois ton message...

Merci beaucoup pour ton aide.

Rechercher des sujets similaires à "trouver dernier dossier cree ensemble"