Taille d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 546 fois - Téléchargée 128 fois


Contenu du snippet

Comment connaître la taille d'un fichier en octet ?

Mettez ce code dans un bouton par exemple :

Source / Exemple :


Dim Fichier As String
Dim Chemin As String
Dim Taille As Long
Dim FichierNom As String

Chemin = "C:\"
FichierNom = "AUTOEXEC.BAT"
Fichier = Dir$(Chemin & FichierNom)

Taille = 0
Do While Fichier <> ""
    Taille = Taille + FileLen(Chemin & Fichier)
    Fichier = Dir$
Loop

MsgBox (FichierNom & " : " & Taille & " octets")

A voir également

Ajouter un commentaire

Commentaires

Messages postés
23
Date d'inscription
mercredi 3 novembre 2004
Statut
Membre
Dernière intervention
9 mars 2010

Et pourquoi pas tout simplement FileLen(Chemin & FichierNom) ?
Cela revient au même...
Messages postés
295
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
24 janvier 2014
1
le filelen retourne un nombre négatif quand on teste la taille d'un fichier de plusieurs Giga
Messages postés
3
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
29 août 2006

Pourquoi est ce que ça ne marche pas lorsque le fichier est une image jpg par exemple?
Messages postés
97
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
1 décembre 2003

EXCELLENT !!!!
Nix, tu cherches les complications...

TailleFichier=FileLen("Fichier")

:-) Vbalex

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.