Connaitre la taille d'un dossier ou d'un fichier a l'octet près..

Soyez le premier à donner votre avis sur cette source.

Vue 12 126 fois - Téléchargée 1 020 fois

Description

Ce logiciel permet de connaitre la taille d'un fichier ou d'un dossier a l'octet près. Il convertit les unités si le fichier ou le dossier a une taille dépassant le ko, Mo ou Go... (Il vaut peut etre mieux sachant qu'1 Go = 1073741824 octets ^^...
Voila, donc n'hésitez pas a poster vos critiques, bonne sou mauvaises, personellement je n'aime pas du tout l'interface, mais peut etre ferez vous mieux (sans aucun doute !!) Voila c'est mon 1 er code donc soyez indulgent !!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2075
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
2
J'essayerais des ke l'ocaz se presente. Merci pour l'infos.
Messages postés
295
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
24 janvier 2014
1
ben c paceke ta pas essayé avec un fichier de plus de 4 giga
Messages postés
2075
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
2
J'ai jamais eu de problème pourtant ...
Messages postés
295
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
24 janvier 2014
1
marche pas avec les fichiers de plusieurs Giga octets (ça retourne des nombres négatif )
Messages postés
2075
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
2
Pour calculer la taille en octets, mega-octets, ... automatiquement moi j'utilise les APIs

Exemple :

Public Enum CalcType
sFichier = 0
sValeur = 1
End Enum
Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByVal cchBuf As Long) As Long


Public Function OKoMoGo(FichierOuTaille As Variant, Valeur As CalcType) As String
Dim Mem As String
Dim LenMem As Long
Dim Taille As Single
Select Case Valeur
Case sFichier: Taille = FileLen(FichierOuTaille)
Case sValeur: Taille = FichierOuTaille
End Select
Mem = Space(32)
LenMem = Len(Mem)
If StrFormatByteSize(Taille, Mem, LenMem) <> 0 Then OKoMoGo Trim(Mem) Else OKoMoGo Empty
End Function

Cette fonction convertie la taille et adjoint l'unité adequate.
Afficher les 13 commentaires

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.