Trouver le fichier le plus récent d'un dossier

Commenter

Contenu du snippet

Cette fonction retourne le nom du fichier le plus récent dans un dossier indiqué.

Source / Exemple : 


Function FindLastFile(Path As String)

    Dim fName As String
    Dim fDate As Date
    
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim folder
    Set folder = fso.GetFolder(Path)
    
    Dim Files
    Set Files = folder.Files

    Dim File
    For Each File In Files
        If File.DateCreated > fDate Then
            fDate = File.DateCreated
            fName = File.Name
        End If
        Debug.Print File.Name, File.DateCreated, "=>", fName, fDate
    Next
    
    Set Files = Nothing
    Set folder = Nothing
    Set fso = Nothing

    FindLastFile = fName
    
End Function

Conclusion :


Il suffit d'appeler la fonction avec le code suivant :

MsgBox FindLastFile("d:\")

et la fonction renvoie le nom du fichier ayant la date de création la plus récente.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_WebSeb)