Chercher une donne dans un fichier

bon ... fait comme 1 semaine que je "gosss" sur ce petit problème ...

Open "C:\Documents and Settings\Rifer\My Documents\Mafiozo\Mafiozo\" + txtLogin.Text + ".dat" For Input As nbrfile
Do While Not EOF(nbrfile)
Input #nbrfile, Donnee
On Error Resume Next
Fichier = Fichier + Donnee
Loop
Close nbrfile

Dim LogS As Integer
Dim LogF As Integer

LogS = InStr("[Login" + txtLogin.Text + "]", "password =")
LogS = InStr(LogS, "Password =")
LogS = LogS + Len(LogS)
LogF = InStr(LogS, Fichier)

If Mid(Fichier, LogS, LogS - LogF) = txtPass.Text Then ......


Bon comme vous le voyez sa va chercher dans un fichier une donné pour que le mo t de passe soi bon ... Cela ne marche pas pentoute a chaque fois il ya erreur ...
merci vous ètes des anges

C'est à quel niveau que cela bloque??? Tu a débogger à la mano pour voir d'où venait l'erreur????

c'est peu fouilli, mais j'ai l'impression que LogS - LogF est toujours négatif , et donc que mid ne peut pas fonctionner...

Mets des breakpoint (F9) à chaque instruction critique et regardes les valeurs de tes <> variables (en laissant la souris dessus), comme ça, tu verra à quel endroit cela merde.... C'est le mieux encore je crois....