Avoir la taille d'un fichier avec la bonne unité

Télécharger le projet
Commenter

Description

cette chtite fonction permet d'avoir la taille d'un fichier avec la bonne unité. Elle renvoie une chaine de caractère avec la taille et l'unité la plus appropriée.

Source / Exemple : 


Public Function TailleFic(chemin As String) As String

Dim valeur As Variant
Dim unit As String
'taille du fichier en octets
valeur = FileLen(chemin)
 
' conversion de la taille dans l'unité appropriée
If valeur < 1000 Then
    unit = "octets"
ElseIf valeur / 1024 < 1000 Then
    unit = "Ko"
    valeur = Left(valeur / 1024, 4)
ElseIf valeur / 1024 ^ 2 < 1000 Then
    unit = "Mo"
    valeur = Left(valeur / 1024 ^ 2, 5)
ElseIf valeur / 1024 ^ 3 < 1000 Then
    unit = "Go"
    valeur = Left(valeur / 1024 ^ 3, 4)
End If

TailleFic = valeur & " " & unit

End Function

Conclusion :


Il faut l'appeller avec en paramètre un chaine de caractère contenant un nom de fichier complet. Exemple:
chemin = "C:\Program Files\setup.exe"
retval = TailleFic (chemin)
Télécharger le projet

Codes Sources

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 (soulmanto)