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.
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.