Fichier Txt videRésolu

Question

Bonjour a tous,

J'ai un prog qui utilise des fichiers txt pour stocker des variables. A la fin, j'efface leurs contenus de la maniere suivante:

Dim Temp as Variant

Open Fichier for Output as #10
Close #10

Par contre apres dans mon code, j'ai besoin de verifier si ils sont vides, mais la, mon bout de code ne marche pas:

Open Fichier for Input as #10
Input #10, Temp
if Temp Is Empty then
MSGBOX "C Vide"
endif
Close#10

Comment on fait pour verifier qu'un fichier est vide?? Y a t'il une facon plus convenable que mon bout de code pour le faire?

Merci,

Jerem

domsig · Accepted Answer

ben.... si tu vides ton fichier, pourquoi tu le détruis pas, plutôt ?

on error resume next
kill chemin & fichier.txt

au prochain remplissage tu fais bien 
open chemin & fichier.txt for output as fnum et puis voilà ? non ?

pinje · Answer

On va dire que c lundi et que j'ai bcp de mal!!

C vrai, je ni avais pas pense; par contre est ce que tu connais une methode qui regarderai si le fichier exist? Car mon prog a besoin de savoir si il y a des donnees qu'one ete calculees!

genre

If App.path\Fichier = Mon fichier exist then

procedure

Endif

Merci encore!

Jerem

cs_rene38 · Answer

Bonjour
ou bien :

Open Fichier For Input As #10
If LOF(10) = 0 Then MSGBOX "C Vide"
Close#10

cs_CanisLupus · Answer

Bon, puisque mes 2 derniers posts ne se sont pas affichés (bonjour Mr BUG), je fais une dernière tentative, rien que pour voir.
Je disais donc, pour savoir si un fichier existe :
if dir(chemin + nomfichier) <> "" then le fichier existe
s'il existe :
if filelen(chemin + nomfichier) = 0 il est vide

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

cs_rene38 · Answer

Mr BUG a dit : on n'affiche pas le post mais on envoie quand même un mail aux participants !

Fichier Txt vide

5 réponses

Discussions similaires