Connaitre la taille d'un fichier sans l'ouvrir ?

Résolu
PrinceSilk Messages postés 56 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 26 mai 2013 - 22 juin 2008 à 02:07
PrinceSilk Messages postés 56 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 26 mai 2013 - 22 juin 2008 à 10:33
D'habitude, lorsque je veux connaitre la taille d'un fichier, je fait simplement
Open "fichier" for input as #1
Longueur= LOF(1)
Close #1

C'est mignon, mais je voudrait faire un programme récuperant la taille d'un grand nombre de fichiers (+/- 5000), le problème, c'est que ouvrir chaque fichier, ca fait pas mal d'accès disques, et ca ralentit fortement mon programme...

Donc peut on connaitre la longueur d'un fichier sans l'ouvrir ?

Merci !

2 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
22 juin 2008 à 03:03
Salut
   Dim Taille As Long
   Taille = FileLen("C:\mon fichier")
mais n'acceptera pas les fichiers de plus d' 1 Go (type Long)
 
Si tu tapes "taille fichier" dans le moteur de recherche, tu auras des exemples.
Dans le forum, j'ai vu passer des solutions pour les plus gros fichiers, faut chercher.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
3
PrinceSilk Messages postés 56 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 26 mai 2013
22 juin 2008 à 10:33
Ca me suffit, car je n'ai aucun besoin de voir les fichiers de plus de 300Mo, donc je rajoute juste une petite fonction If...Then filtrant les FileLen>400Mo ou <0 ^^

Merci beaucoup
0
Rejoignez-nous