End of file ne marche pas ?

Résolu

htcp3600 Messages postés 2 Date d'inscription mardi 22 juillet 2008 Statut Membre Dernière intervention 22 juillet 2008 - 22 juil. 2008 à 10:49
htcp3600 Messages postés 2 Date d'inscription mardi 22 juillet 2008 Statut Membre Dernière intervention 22 juillet 2008 - 22 juil. 2008 à 11:38

Bonjour j'aimerai savoir pourquoi mon programme ne passe pas le EOF ?
je suis débutant :D

merci

'Déclaration des objets'
Set wshell = CreateObject("WScript.Shell")
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile("C:\test.txt", 1)

Contenu = MonFic.ReadAll
Msg = "Le fichier fichier.txt contient : " & Contenu
MsgBox(Msg)

Do While not EOF(1)
msgbox("ok")
loop

A voir également:

Unexpected end of file from server; nested exception is java.net.socketexception: unexpected end of file from server
Select from - Forum SQL
Reconversion sql server ✓ - Forum SQL
Maximum execution time of 30 seconds exceeded - Forum PHP
Vector subscript out of range ✓ - Forum C++ & C++ .NET
Unexpected token php ✓ - Forum PHP

2 réponses

Réponse 1 / 2

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
22 juil. 2008 à 10:57

EOF du fichier dont le canal est 1
incompatible avec FSO...

tu confonds avec MonFic.AtEndOfStream

inutile, cependant: tout le fichier a été lu avec le ReadAll

Réponse 2 / 2

htcp3600 Messages postés 2 Date d'inscription mardi 22 juillet 2008 Statut Membre Dernière intervention 22 juillet 2008
22 juil. 2008 à 11:38

Merci bcp ! cela m'a aidé :D

Discussions similaires

java.net.SocketException: Unexpected end of file from server

Echec:SQLSTATE[HY093]: Invalid parameter number: number...

probléme : Object reference not set to an instance of an object

syntax error at end of input

decimal (12,2) ca veut dire quoi?

Votre réponse

Discussions similaires