Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 07:33:16

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par Renfield

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

+ de logiciels à télécharger

1 329 730 membres
76 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 802 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RÉCUPÉRER LA TAILLE D'UN FICHIER À LA FAÇON DE L'EXPLORATEUR WINDOWS

Information sur la source

Catégorie :Fichier / Disque Classé sous : taille, fichier, filesize, octet, byte Niveau : Débutant Date de création : 05/03/2003 Date de mise à jour : 05/03/2003 13:00:26 Vu : 3 908

Auteur : tcedi

Site perso

Ecrire un message privé

Note :

7,75 / 10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

La fonction TailleFichieroKoMoGo permet de récupérer la taille d'un fichier à la façon de l'Explorateur Windows. C'est-à-dire d'utiliser l'unité appropriée (octet, Ko, Mo, Go), de limiter le nombre de chiffres après la virgule selon le nombre de chiffres avant la virgule, de ne pas arrondir (juste tronquer), ...

Source

Public Function TailleFichieroKoMoGo(Chemin As String) As String
Dim Taille
Dim Valeur
Taille = FileLen(Chemin)
If Taille >= 1024 Then
Taille = Taille / 1024
If Taille >= 1024 Then
Taille = Taille / 1024
If Taille >= 1024 Then
Taille = Taille / 1024
If Asc(StrReverse(Left(Taille, 4))) = 44 Then
Valeur = Left(Taille, 3)
Else
Valeur = Left(Taille, 4)
End If
TailleFichieroKoMoGo = Valeur & " Go"
Else
If Asc(StrReverse(Left(Taille, 4))) = 44 Then
Valeur = Left(Taille, 3)
Else
Valeur = Left(Taille, 4)
End If
TailleFichieroKoMoGo = Valeur & " Mo"
End If
Else
If Asc(StrReverse(Left(Taille, 4))) = 44 Then
Valeur = Left(Taille, 3)
Else
Valeur = Left(Taille, 4)
End If
TailleFichieroKoMoGo = Valeur & " Ko"
End If
Else
If Taille < 2 Then
Valeur = " octet"
Else
Valeur = " octets"
End If
TailleFichieroKoMoGo = Taille & Valeur
End If
End Function

Public Function TailleFichieroKoMoGo(Chemin As String) As String
    Dim Taille
    Dim Valeur
    Taille = FileLen(Chemin)
    If Taille >= 1024 Then
        Taille = Taille / 1024
        If Taille >= 1024 Then
            Taille = Taille / 1024
            If Taille >= 1024 Then
                Taille = Taille / 1024
                If Asc(StrReverse(Left(Taille, 4))) = 44 Then
                    Valeur = Left(Taille, 3)
                Else
                    Valeur = Left(Taille, 4)
                End If
                TailleFichieroKoMoGo = Valeur & " Go"
            Else
                If Asc(StrReverse(Left(Taille, 4))) = 44 Then
                    Valeur = Left(Taille, 3)
                Else
                    Valeur = Left(Taille, 4)
                End If
                TailleFichieroKoMoGo = Valeur & " Mo"
            End If
        Else
            If Asc(StrReverse(Left(Taille, 4))) = 44 Then
                Valeur = Left(Taille, 3)
            Else
                Valeur = Left(Taille, 4)
            End If
            TailleFichieroKoMoGo = Valeur & " Ko"
        End If
    Else
        If Taille < 2 Then
            Valeur = " octet"
        Else
            Valeur = " octets"
        End If
        TailleFichieroKoMoGo = Taille & Valeur
    End If
End Function

Conclusion

Vu l'extrème simplicité du code, je n'ai pas mis de commentaires.

REMARQUE : Dans certains cas, la valeur retournée par la fonction ne correspondra pas exactement à celle de l'Explorateur Windows. C'est normal !!! J'ai décidé d'utiliser 1024 comme référence pour le passage à l'unité supérieure.

Sources du même auteur

EXÉCUTER UN PROGRAMME ET ATTENDRE OU NON LA FIN DE SON EXÉCU...

SYSTÈME DE MISE À JOUR AUTOMATIQUE PAR INTERNET : T.C.E.D.I....

FORMATER UNE DISQUETTE

SUPPRIMER UN RÉPERTOIRE ET TOUT SON CONTENU (SOUS-DOSSIERS E...

Toutes les sources de tcedi

Sources de la même categorie

BLOQUER/DEBLOQUER UN FICHIER NTFS par EBArtSoft

GESTION DISQUES SERVEUR par cdbi

CRÉER DIAPORAMA PPT par Le Pivert

VALIDEUR DE FICHIER XML XSD par denpx

GÉNÉRATEUR DE FICHIER par denpx

Toutes les sources de la catégorie Fichier / Disque

Sources en rapport avec celle ci

BLOQUER/DEBLOQUER UN FICHIER NTFS par EBArtSoft

CONVERTIR UN OCTET EN 8 BITS (10011101) BYTESTOBITS par yvesyves

API :CONVERTIR DES OCTETS EN KO,MO,GO EN FONCTION DE LA VALE... par MasterHack

UN PROGRAMME QUI AMÉLIORE LES PROPRIÉTÉS DE WINDOWS par WebMagique

TAILLE D'UN FICHIER par Nix

Commentaires et avis

Commentaire de fluminis le 05/09/2003 14:09:18

simple mais pratique
il fallait y penser

Commentaire de tcedi le 06/09/2003 11:06:38

Merci pour ce premier commentaire, fluminis !

Je me disais que cette source n'intéressait personne !

Bonne prog !

Commentaire de fluminis le 06/09/2003 22:35:20

c'est sur que c'est pas du meme niveau que ton prog de mise à jour par internet mais moi ca m'a donné l'idée et je l'ai refait à ma manière dans un de mes progs.
++

Commentaire de maup le 14/11/2003 15:03:46

Ca tombe bien j'en avais besoin merci
A+

Commentaire de ph2268 le 15/11/2003 17:00:23

ouais sympa.
dans le même genre d'idée, j'aimerai récupérer le nb de dpi.
info donnée par xp lorsqu'on fait propriété/ résumé/ avancé sur une image. si qq'un a une idée....

Commentaire de soldier8514 le 18/06/2006 20:52:42

filelen sur un fichier de plusieurs GiGa ???!!!_ euh tu risque davoir de gros pépins dans tes programmes avec ça (valeurs négatives retournée par filelen dès que tu essaieras sur un fichier de plusieurs gigas ) __

Commentaire de tcedi le 18/06/2006 22:46:43

C'est clair, Soldier8514 !

FileLen retourne le nombre d'octets d'un fichier sous forme d'un entier long (Long).
Limite : 1,9999999999 Go, pour être exact !
Au delà, on passe dans les négatifs jusque plus ou moins 4 Go.

Les APIs du système d'exploitation sont là pour combler les faiblesses du VB (et de FileLen)...

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Comment déterminer la taille d'un très gros fichier ? [ par MTB ] J'ai besoin de capturer la taille d'un très gros fichier (valeur excédant la capacité d'une variable "long"). Les fonctions traditionelles (FileLen, f modifier un fichier (octet) [ par Yoshi ] Salutj'aimerai modifier un fichier en hexadécimal, pour mon patchex: modifier un proget aussi supprimer des octets ou en rajouter CRYPTAGE [ par FREDM ] Je crypte actuellement des fichiers en applicant à chaque octet une clef XOR l'octet lu. Mon problème est qu'en C en prenant un bufer de 1024 le crypt Récupérer la taille d'un fichier sur un serveur distant [ par Sab ] Salut,Comment dois-je procéder pour récupérer la taille d'un fichier sur un serveur existant ? J'ai essayé FileLen mais ça ne passe pas.Merci pour vot Extraire les données d'un fichier en BINAIRE ? [ par nostromo2022 ] lut, voilà j'aimerai savoir s'il est possible d'extraire directement le code binaire d'un fichier.J'arrive à extraire les données octet par octet mais Extraire les données d'un fichier en BINAIRE ? [ par nostromo2022 ] lut, voilà j'aimerai savoir s'il est possible d'extraire directement le code binaire d'un fichier.J'arrive à extraire les données octet par octet mais Envoi d'un fichier avec Winsock de grosse taille [ par Spylover ] Si quelqu'un a déja fait un prog en VB pour expédier des fichiers, je suis preneur. Je dois mal le réaliser car mon SOFT ne gère pas plus de qques még Connaître la taille du fichier distant. [ par Jonef ] Bonjour,j'aimerais savoir comment connaître la taille d'un fichier stocké sur un serveur http:// à partir de sont URL.Merci bcp.A+ Probleme de taille avec les TexteBOX [ par KoZo ] kan j'ouvre un fichier texte ds un textbox et que ce fichier texte est trop grans ou gros ya un msg d'erreur comment eviter ce msg et ainsi permettra ??? Taille max d'une TextBox ?????? [ par Daniel ] Bonjour,J'utilise une TextBox pour afficher un fichier text...par la métode :____________________________________________________________If Fichier_a_