CodeS-SourceS
Rechercher un code, un tuto, une réponse

Trouver le nom du plus gros fichier dans 1 dossier

Soyez le premier à donner votre avis sur cette source.

Vue 2 918 fois - Téléchargée 215 fois

Description

voila c 1 petite fonction sans prétention qui permet de trouver dans un dossier le chemin et le nom du fichier qui possède la plus grande taille en octets.

je met juste le code de la fonction

pour un exemple d'utilisation de cette fonction télécharger le zip.

attente de commentaires...

Source / Exemple :


Private Function FindBigFile(DirPath As String, lstFileIfo As FileListBox, strResult As String)

Dim intCntIfo As Integer 'Boucle
Dim BiggerElemIndex As Long 'contient l'index du lpus gros fichier
Dim BiggerElemSize As Long 'Taille du plus gros fichier
Dim TempSize As Long 'valeur temporaire

'Vérifions s'il y a au moins un fichier
If lstFileIfo.ListCount >= 1 Then
    
    'donne une valeur de départ pour éviter toute erreur de taille
    BiggerElemSize = -1
    
    'boucle qui compare la taille de chaque fichier d'un filelistbox
    For intCntIfo = 0 To lstFileIfo.ListCount - 1
        
        'stoke la 1ère valeur rencontré
        TempSize = FileLen(DirPath & lstFileIfo.List(intCntIfo))
        
        '..puis compare avec les autres et remplacement de
        'celle-ci par la valeur de la variable BiggerElemSize
        If TempSize > BiggerElemSize Then
            BiggerElemIndex = intCntIfo
            BiggerElemSize = TempSize
        End If
        
    Next intCntIfo
        
    'retourne le résultat dans une variable
    strResult = lstFileIfo.List(BiggerElemIndex)

End If
    
End Function

Conclusion :


cela ne sert pas à grand chose mais peut-être utile pour certains d'entre-nous.

Codes Sources

A voir également

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.