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

A voir également:

2 réponses

Réponse 1 / 2

jrivet Messages postés 7392 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

Réponse 2 / 2

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

Discussions similaires

opentextfile

copier une ligne précise dans un fichier .txt en VBscript

Bouton sauvegarder

READLINE ?? lire une ligne d'un fichier txt

VBS : lire ligne par ligne un fichier txt

Votre réponse

Discussions similaires