EOF avec OpenTextFile

[Résolu]
Signaler
Messages postés
39
Date d'inscription
mercredi 8 décembre 2004
Statut
Membre
Dernière intervention
28 janvier 2009
-
Messages postés
39
Date d'inscription
mercredi 8 décembre 2004
Statut
Membre
Dernière intervention
28 janvier 2009
-
Bonjour à tous,

je débute en FSO et je me demande ce qui cloche dans mon code que voici.

Ca bloque sur "Do While not FichierUsers.eof"

Dim fso
Dim foldr
Dim FichierUsers

Dim Chaine

Set fso = CreateObject("Scripting.FileSystemObject")
Set foldr = fso.GetFolder("./")
Set FichierUsers = fso.OpenTextFile(foldr & "\Users.txt",1)
Do While not FichierUsers.eof
        chaine = FichierUsers.ReadLine
        msgbox(chaine)
loop

Merci

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,

FichierUsers est de type TextStream , cet objet ne possède pas de propriété EOF mais possède la proriété .AtEndOfStream

@+,   Ju£i?n
Messages postés
39
Date d'inscription
mercredi 8 décembre 2004
Statut
Membre
Dernière intervention
28 janvier 2009

Youpie encore une super bonne réponse.

Merci beaucoup