Petit probleme dans le calcule de taille d'un fichierRésolu

Question

Bonjour j'ai cr&#233;er un code hier soir pour calculer la taille d'un fichier en unit&#233; plus ad&#233;quoite. Sa marche impec mais voil&#224; quand je choisi un fichier dont la taille reste en octets et bien dans le label qui a comme boulot dafficher la taille et l'unite et bien c'est marqu&#233; "Ko" sans rien devant, ou alors marqu&#233; rien. Je vois pas ma faute, vous savez m'aider?


dim fic2, tailleo, tailleko, taillemo


Private Sub List1_Click()
fic2 = List1.Text               'l&#224; je prend l'adresse d'un fichier
tailleo = FileLen(fic2)        'Je calcul la taille en octet
    If tailleo > 1024 Then
    tailleko = tailleo / 1024
    Else
    aff_taille.Caption = tailleo & " octets"
    End If
    
    If tailleko > 1024 Then
    taillemo = tailleko / 1024
    aff_taille.Caption = Round(taillemo, 2) & " Mo"
    Else
    aff_taille.Caption = Round(tailleko, 2) & " Ko"
    End If
End Sub

Merci d'avance

Gobillot · Accepted Answer

Select Case taille

      Case Is >= 1048576:  MsgBox Format$(taille / 1048576, "#0.00 Mo")

      Case Is >= 1024:     MsgBox Format$(taille / 1024, "#0.00 ko")

      Case
Else:          
MsgBox taille & " octets"

      End Select


Daniel

Gobillot · Answer

si tailleo < 1024 --> tailleko = 0



comme tu repart toujours de tailleko dans le deuxi&#232;me test, il reste &#224; z&#233;ro

il faut tester les trois cas dans un m&#234;me test:



Select Case tailleo

   case > 1024*1024 - 1:

   case  > 1024 - 1:

   case Else:

  End Select 




Daniel

cs_Jack · Answer

Salut
Info en passant pour les calculs.
Selon la mani&#232;re dont est dimensionn&#233; 'tailleo', il se peut que les calculs soient faux.
Utilise cette syntaxe :
Case > 1024! * 1024! -1!
(avec des ! derri&#232;re les constantes pour lui dire que c'est du type Long)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

comtention · Answer

Merci a vous ca marche super!

J'en profite pour faire resortir des questions dont je n'ai pas encore eu de reponses 
--> http://www.vbfrance.com/forum.v2.aspx?id=157019
-->http://www.vbfrance.com/forum.v2.aspx?ID=526332

Petit probleme dans le calcule de taille d'un fichier

4 réponses

Discussions similaires