[VB6] Autre erreur, "Input past end of file" (#62)

Version imprimable

Bonjour,

J'ai un petit problème et je ne sais pas où trouver la solution. En fait, j'ai l'erreur #62, mais je ne comprends pas vraiment pourquoi.
La ligne en gras est celle qui me donne l'erreur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub AutUpdate()
  Set FSO = CreateObject("Scripting.FileSystemObject")
  If FSO.FolderExists("C:\Program Files\Blizzard CDKey Manager\") Then
    Dim AutoStatus
    AutoStatus = ReadINI("General", "AutoUpdate", "C:\Program Files\Blizzard CDKey Manager\CDKey.ini")
    If AutoStatus = "True" Then
      mnuAuto.Checked = True
      Set FSO = CreateObject("Scripting.FileSystemObject")
      Set TF = FSO.OpenTextFile("C:\Program Files\Blizzard CDKey Manager\CDKey.txt", 1, False)
      While Not TF.AtEndOfStream
        lstKeys.AddItem Split(TF.ReadLine, ":")(0) & " (" & Split(TF.ReadLine, ":")(1) & ")" ' Cette ligne
        TF.Close
      Wend
    Else
      mnuAuto.Checked = False
    End If
  Else
    Call crtFolder
  End If
End Sub

15/04/2006, 17h35
SfJ5Rpw8

quest -ce qu'il y as pour toi dans ton fichier...? ? combien de lignes ?
15/04/2006, 17h40
Jihnn

1 pour commencer.
15/04/2006, 17h45
SfJ5Rpw8

Citation:

Envoyé par ThunderStroke

1 pour commencer.

ben alors pourquoi tu en lit 2 en appelant 2 fois la fonction readline ?
15/04/2006, 17h52
Jihnn

Bah, je crois que j'appelle la même pour la diviser ? Ça doit être dûr de la diviser en deux si je peux l'appeler qu'une seule fois...

Sinon là j'ai une autre erreur -.-

#91 : Object Variable or With Block not set
15/04/2006, 17h55
SfJ5Rpw8

et ou tu la cette erreur 91 ???

sinon les variable .. tu connai ps ???

Code:

maLigne = TF....
15/04/2006, 18h03
Jihnn

Oui, je connais, merci bien monsieur.

L'erreur 91 est avec While.
15/04/2006, 18h06
SfJ5Rpw8

je crois que tu devrai revoir....AtEndOfStream ? tu est sur que cela existe ?
15/04/2006, 18h07
Jihnn

En VBS en tout cas.
Sinon, qu'est-ce que je pourrais utiliser ?
15/04/2006, 18h17
SfJ5Rpw8

a .. sort ton close aprés la boucle while...
15/04/2006, 18h18
Jihnn

Ouais, c'était bien ça (C'est con, j'étais sûr l'avoir fait en premier :tantpis: )

Merci