Test fichier vide

momorice1 Messages postés 38 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 6 juin 2003 - 21 janv. 2003 à 12:31
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 21 janv. 2003 à 12:47
bijour
J'aimerais savoir comment on peut faire pour tester si un fichier text est vide ou non !!!
En faite G 1 soucis . J'ouvre mon fichier je charge la première ligne Open fichier1 For Input As #1
Line Input #1, lign
(fichier1 et lign sont des variables declarées et initialisées )precedement )
Ce fichier est en faite en ce moment vide , il est reinitialisé regulièrement ! VB bug sur "Line Input #1, lign" et me renvoie le message d'erreur "l'entré depasse la fin du fichier " !!
De l'aide serait bienvenu !
merci d'avance.

2 réponses

clementio Messages postés 432 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 17 février 2014 1
21 janv. 2003 à 12:38
Salut, pour remplir un fichier je ne saurais trop te conseiller ça:

Open fichier1 For Output As #1
Print #1, ""
Close #1
Open fichier1 For Binary As #1
Put #1, , lign
Close #1

Voilà, avec ça plus de problème...

a+, Clm
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
21 janv. 2003 à 12:47
Bonjour
Essaie :
Open fichier1 For Input As #1
If LOF(1) = 0 Then 'le fichier est vide
Else ' il n'est pas vide
0
Rejoignez-nous