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

**Jihnn** · 15/04/2006, 17h27

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 :

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
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

**SfJ5Rpw8** · 15/04/2006, 17h35

quest -ce qu'il y as pour toi dans ton fichier...? ? combien de lignes ?

**Jihnn** · 15/04/2006, 17h40

1 pour commencer.

**SfJ5Rpw8** · 15/04/2006, 17h45

Envoyé par ThunderStroke

1 pour commencer.

ben alors pourquoi tu en lit 2 en appelant 2 fois la fonction readline ?

**Jihnn** · 15/04/2006, 17h52

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