CONNAITRE LA TAILLE D'UN DOSSIER OU D'UN FICHIER A L'OCTET PRÈS..
cs_Stephane
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
1 nov. 2005 à 15:04
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 18 juin 2006 à 23:36
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 18 juin 2006 à 23:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34429-connaitre-la-taille-d-un-dossier-ou-d-un-fichier-a-l-octet-pres
https://codes-sources.commentcamarche.net/source/34429-connaitre-la-taille-d-un-dossier-ou-d-un-fichier-a-l-octet-pres
18 juin 2006 à 23:36
18 juin 2006 à 21:24
18 juin 2006 à 20:34
18 juin 2006 à 20:04
23 mai 2006 à 10:53
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.
6 nov. 2005 à 01:05
2 nov. 2005 à 14:25
@++
Otpitech ;)
2 nov. 2005 à 14:13
2 nov. 2005 à 14:00
Non les tailles octet ==> Mo se convertissent comme ca :
1 mo 1024 * 1024 Octets 1048576 Octets, ensuite Visual Basic récupère la taille du dossier en octets, verifie s'il est plus petit ou plus grand que 1024, et ainsi de suite, afin de trouver par quoi il faut diviser, dans l'exemple du Mo il devra diviser par 1048576, donc logiquement il devrait pas y avoir de fautes !!
> optitech, je regarde ton code de suite, merci..
2 nov. 2005 à 13:11
Voila ton code en amélioré !
Function unite(taille As Double) As String
'Taille doit être en octet
Dim tabunite 'On décalre une variable qui va être un tableau
Dim i As Integer 'Un compteur
tabunite = Array("o", "Ko", "Mo", "Go", "To", "Po", "Eo","Zo","Yo") 'Le tbaleau de unités
i = 0 'Initialisation du compteur
Do While taille >= 1024 And i < 8 'Début de la boucle
taille = taille / 1024 'On divise
i = i + 1 'on rajoute 1 au compteur
Loop 'Fin de la boucle
unite = Round(taille, 2) & " " & tabunite(i) 'On retourne la taille convertie avec l'unité dans une string
End Function
Pour effectuer une conversion il vous suffit d'appeller la function avec la taille à convertir en paramètre :
Msgbox unite(1208925819614629174706176) 'ce nombe vaut un Yo !
Rappel : pour voir la taille d'un fihcier en octect : FileLen(Fichier)
@++
Optitech ;)
1 nov. 2005 à 18:20
1 nov. 2005 à 16:01
1 nov. 2005 à 15:04
j'ai pas testé ta source mais au vue de la capture, il y a un petit probleme :
comme tu la dit :
1 Ko 1024 et 1Mo 1024 Ko etc...
ainsi si tu exprime la taille d'un dossier en Ko, Mo ou Go, la 3eme décimale ne correspond pas au sous-multiple. ex :
si tu a un dossier de 2,541357 Mo ca ne veut pas dire que le taille est 2541357 octets
Donc l'affichage en multiple ne permet pas de connaitre la taille à l'octet pret.
Si tu as converti les tailles octet->Mo en divisant par 1 000 000 ... ce probleme ne se pose plus, mais a ce moment la, la taille affichée n'est pas <<juste>>, c'est comme si 1 tonne = 900 kg :)
Donc voila, pour etre à l'octet pret, je pense que le mieux est d'exprimer la taille en octet.
Après pour faciliter la lecture tu peux séparer les milliers :
2 245 541 octets
on voit rapidement que ca vaut a peu pres 2,2Mo
Tu dois pouvoir faire ca avec la fonction format je pense.
voila
++