Porbleme avec FileLen et Api FindFirst et Findnext
Zoneur
Messages postés
6
Date d'inscription
dimanche 31 août 2003
Statut
Membre
Dernière intervention
25 mars 2005
-
7 juil. 2004 à 02:32
Zoneur Messages postés 6 Date d'inscription dimanche 31 août 2003 Statut Membre Dernière intervention 25 mars 2005 - 7 juil. 2004 à 16:26
Zoneur Messages postés 6 Date d'inscription dimanche 31 août 2003 Statut Membre Dernière intervention 25 mars 2005 - 7 juil. 2004 à 16:26
2 réponses
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
7 juil. 2004 à 09:35
7 juil. 2004 à 09:35
tu peux essayer cette fonction ( ou Chemin est le Chemil Complet de ton Fichier ...Ex : "C:\MonRep\MonFichier.mdb"):
Public Function TailleFic(Chemin As String) As String
Dim Valeur As Variant
Dim Unit As String
Valeur = FileLen(Chemin) ' Taille du fichier en octets
' 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
It@li@
Public Function TailleFic(Chemin As String) As String
Dim Valeur As Variant
Dim Unit As String
Valeur = FileLen(Chemin) ' Taille du fichier en octets
' 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
It@li@
Zoneur
Messages postés
6
Date d'inscription
dimanche 31 août 2003
Statut
Membre
Dernière intervention
25 mars 2005
7 juil. 2004 à 16:26
7 juil. 2004 à 16:26
Merci, ITALIA pour ta jolie reponce mais j'ai pas ce blém kje detaille plus..
Filelen = long
Methode avec findfirstfile et findnextfile = long
Methode avec GetFilelen = Long
Il me faudrais une api qui se sert pas de long maiis de double..
Ps: ITALIA TOn convertiseur et faut.. Mais merci de d'etre penché sur mon problémes.
*************
Filelen = long
Methode avec findfirstfile et findnextfile = long
Methode avec GetFilelen = Long
Il me faudrais une api qui se sert pas de long maiis de double..
Ps: ITALIA TOn convertiseur et faut.. Mais merci de d'etre penché sur mon problémes.
*************
