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