error '62' input as end of file

Question

salut a tous j'ai un petit bout de code qui pose bien le probleme:
    ' Variables
Dim lFile As Long
Dim Fichier As String
Dim Ligne As String
 
    'on vide la Cbo
    FrmNavWeb.CboURL.Clear

Fichier = "Historique.txt" ' Le fichier à lire(qui contient les lignes à récupérer)

' Demande un numéro de fichier non utiliser
lFile = FreeFile
' Ouvre le fichier en lecture
Open Fichier For Input As #lFile

    Do
        ' Récupére la ligne pointer dans le fichier
        Input #lFile, Ligne' !!!c'est la qu'il me met une error '62'input as end of file
        ' L'ajoute dans la ComboBox
        FrmNavWeb.CboURL.AddItem Ligne
        ' Boucle tant qu'on est pas rendu à la fin du fichier
    Loop Until Seek(lFile)

Close #lFile

si vous pouviez m'aider ça serait simpas
EXOCET

PatDeLaYaute · Answer

salut,
1ere chose préfère un chemin d'accès complet plutot que simplement le nom du fichier.
2eme essaie de mettre : 

do while not eof(lFile)

.....tes instructions

loop

@+

Error '62' input as end of file

1 réponse

Discussions similaires