Taille d'un fichier

Frank569 - 21 mars 2001 à 18:18
CyberFlash Messages postés 38 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 31 mai 2004 - 2 oct. 2003 à 21:26
Salut à tous, j'aimerais avoir un exemple pour afficher la taille d'un fichier (Ex: si le fichier fait 1000 Octet je voudrai que ça affiche 1 Ko 1000 ko 1 Mo ect...

Merci d'avance pour votre aide.

Frank

2 réponses

dim Taille_Fichier as long
dim Nb_Octet as long
dim Nb_Ko as long
dim Pos_Separateur as integer
Taille_Fichier=filelen(c:monfichier.exe)

if taille_fichier>1000 then
pos_separateur=len(cstr(taille_fichier)
nb_ko=mid(cstr(taille_fichier),1,pos_separateur3)
end if

En esperant que ca te convienne,

A++

ShadeBob
0
CyberFlash Messages postés 38 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 31 mai 2004
2 oct. 2003 à 21:26
SAlut,
J'aimerais quand même vous dire que 1000 Ko ne vaut pas 1 Mo exactement.

Effectivement il faut 1024Ko ~ pour 1Mo. les conversion entre octet et Ko suive la meme regle.

@+
0
Rejoignez-nous