begin process at 2012 02 10 00:14:19
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Fichier / Disque

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

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


 Information sur la source

Note :
7,75 / 10 - par 4 personnes
7,75 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 :6 015
Auteur : tcedi

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
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

Source avec Zip EXÉCUTER UN PROGRAMME ET ATTENDRE OU NON LA FIN DE SON EXÉCU...
Source avec Zip Source avec une capture 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

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack
Toutes les sources de la catégorie Fichier / Disque

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source .NET (Dotnet) 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
Source avec Zip 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

Taille maximum d'un tableau de byte ? [ par cretthie ] Bonjour,Comme indiqué dans le titre, j'aimerai bien savoir si la taille d'un tableau de byte est limité. Si oui,a quelle taille. D'apres moi, comme on Allèger la taille d'un fichier [ par mistygirl ] Bonsoir, j'ai un problème avec l'application excel que je suis en train de créer : le fichier prend de plus en plus de place (36Mo actuellement) et ça Trouver la taille et la date de creation d'un fichier en vb6 [ par lisco ] Bonjour , j'ai plusieurs fichiers Excel et je voudrais comparer leur taille en vb6 et avoir en retour lesplus grands?J'ai aucune idée en ce qui concer augmentation taille fichier [ par Athoslegrand ] Bonjour à t corrompre la taille d'un fichier [ par theoutlawz ] Bonjour a tous ! Je ne sais pas si c'est possible mais j'aimerais corrompre la taille d'un fichier.En effet j'ai deja vu ca (pour un programme virale Connaitre la taille d'un fichier sans l'ouvrir ? [ par PrinceSilk ] D'habitude, lorsque je veux connaitre la taille d'un fichier, je fait simplementOpen "fichier" for input as #1Longueur= LOF(1)Close #1C'est mignon, ma Taille fichier [ par NgXCherche ] Sl, je voudrai savoir s'il existe un code pour pouvoir lire(connaitre) la taille d'un fichierMerci Afficher les fichier qui ont la même taille [ par VB 2005 ] Salut les développeurs, je veux créer un petit programme qui cherche les fichiers de 2 dossiers puis affiche les fichiers qui ont la meme taille ( ca Copie de fichier via liste d'authorisation et taille [ par ben_du_51 ] Bonjour à tous,Voila mon souci, actuellement débutant en vbs, je souhaite créé un script permettant de faire une copie de fichier sous certaines condi VB.Net Taille d'un fichier [ par MagDix ] Salut à tous.. Je cherche un moyen pour connaitre la taille d'un fichier... J'ai essayé avec la fonction Path... mais je ne trouve rien.. et la fo


Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,718 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)