salut,
[VB6]
tu lis tout le fichier dans une variable.
tu cherches le dernier retour chariot (donc début de la dernière ligne)
tu cherches la position de ton mot.
si la position est > 0, alors il existe.
Option Explicit
'
'
Private Sub Command1_Click()
Dim FF As Integer, sMonFichier As String, sDerniereLigne
FF = FreeFile
' reçoit fichier complet
Open "C:\truc.txt" For Input As #FF
sMonFichier = Input(LOF(FF), 1)
Close #FF
' retourne la dernière ligne
' ATTENTION, on cherche pas au 1er carac, car souvent fichier terminé par VbCrLf
' donc... ligne vide 
sDerniereLigne = Right$(sMonFichier, Len(sMonFichier) - InStrRev(sMonFichier, vbCrLf, 2) - 1)
' cherche "défaut"
If InStr(1, sDerniereLigne, "défaut") > 0 Then
MsgBox "ouaip, trouvé", 32
Else
MsgBox "nan, y'a pas...", 32
End If
End Sub

Coloration syntaxique automatique [AFCK]
++
PCPT [AFCK]