Discussion :

[maxou75]

Bonjour.

Voila je suis dev débutant et je voudrais tester si un fichier .txt est vide
J'ai déjà une fonction qui teste si il existe et je dois verifier si il contient des caractères maintenant.

J'ai quand meme cherché un peu et apparement il existe un fonction fread qui pourrait m'aider mais je ne comprend pas comment l'utiliser
Qq'un peut me donner un coup de pouce s'il vous plait?

Merci

[sovo]

Slut et bien venu dans le forum.

Le plus simple, serais de lire le contenu du fichier pour voir ce qu'il contient.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
dim FF as integer
dim text1 as string
dim text2 as string
 
text = ""
FF = Freefile
open NomDufichier for input as #FF
   while not eof(#FF)
       Line input #FF,Text 
       text2 = text1 & text2
   wend
close #FF
 
if len(text2) = 0 then 
   msgbox "Le fichier est vide"
else
   mesgbox "le fichier n'est pas vide"
end if

[Asdorve]

Salut,

moi j'aurais proposé quelque chose de plus simple.

Si le fichier est vide, sa taille sera à 0

donc je suppose que ceci doit être valable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
 res = FileLen("C:\...\Texte.txt")
        If res = 0 Then
           msgBox "Le fichier est vide"
        End If

++

[maxou75]

Merci je vais explorer ces pistes, je vous tiens informés

[maxou75]

ça marche nikel merci beaucoup