EOF avec OpenTextFile

Résolu
cs_CharlEm Messages postés 39 Date d'inscription mercredi 8 décembre 2004 Statut Membre Dernière intervention 28 janvier 2009 - 11 sept. 2006 à 16:27
cs_CharlEm Messages postés 39 Date d'inscription mercredi 8 décembre 2004 Statut Membre Dernière intervention 28 janvier 2009 - 11 sept. 2006 à 16:46
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

jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
11 sept. 2006 à 16:45
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
3
cs_CharlEm Messages postés 39 Date d'inscription mercredi 8 décembre 2004 Statut Membre Dernière intervention 28 janvier 2009
11 sept. 2006 à 16:46
Youpie encore une super bonne réponse.

Merci beaucoup
0