Trouver le nom du plus gros fichier dans 1 dossier

Soyez le premier à donner votre avis sur cette source.

Vue 3 129 fois - Téléchargée 233 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

Ajouter un commentaire

Commentaires

vbromanoff
Messages postés
26
Date d'inscription
jeudi 21 août 2003
Statut
Membre
Dernière intervention
27 septembre 2014

S'il avait fallu que ce projet serve à quelque chose pour être posté, je ne l'aurais jamais trouvé !
J'en ai besoin pour une application qui permet de donner le top (5, 10, 20, 50 ou plus) des plus longues conversations MSN :).
Je suis donc très reconnaissant à Willi :) Merci.
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1
pour SATANdemon, si tu comprends pas "pourkoi vous voulez toujour que a sert a qqch ??" ... alors ca doit etre que je n'ai pas compris le principe du developpement...
tes programmes ne sont pas destinés à étre utilisés?
cs_Willi
Messages postés
2376
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
17
merci pour vos commentaires...
cyberlulu
Messages postés
62
Date d'inscription
dimanche 10 novembre 2002
Statut
Membre
Dernière intervention
26 juin 2008

Moi je trouve ça intéressant comme code. Ca peut toujours servir un jour ou un autre.
SATANdemon
Messages postés
44
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
30 novembre 2005

pourkoi vous voulez toujour que a sert a qqch ??
je trouve qu'il sait fait chier a faire un code interressant et apres c a nous de l'adapté, ca permet de decouvrir des fonctions et autres que l'on ne connaissait pas forcement, tout le monde n'as pas la science infuse.

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.