Discussion :

[jlb59]

Bonjour à tous,

Dans mon app, avec l'erreur 53, j'arrive à savoir si un fichier existe ou pas !

Maintenant, comme c'est un fichier texte, le contenu est facilement effaçable, aussi, qq pourrait me dirte comment faire un test concernant le contenu du fichier ?

J'ai bien la lecture avec "Open" mais je ne vois pas comment m'en servir pour ce test.

Merci d'avance.

Cordialement, JLB59

[ouskel'n'or]

Mets ton code pour lire le txt, on te dira comment faire...
Tu as une foultitude d'exemples de lecture d'un txt sur le forum. Un peu de recherche et tu trouveras ça.

A+

[ouskel'n'or]

Tiens un exemple inspiré d'un code donné par bbil, trouvé avec les mots clés "Texte & input" sur le forum

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim TextLine
dim f as integer, ok as boolean
f = freefile
Open "FICHTEST" For Input As #f    ' Ouvre le fichier.
Do While Not EOF(f)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #f, TextLine        ' Lit la ligne dans la variable.
    ok = trim(TextLine) <> ""  and  trim(TextLine) <> vbcr ' ok si TextLine est renseigné
    if ok then exit do
Loop
if not ok then msgbox "Le fichier est vide"
Close #f    ' Ferme le fichier.

Pas testé
Tu veux bien tester pour moi...

Tu dis

A+