Grr Pb ouverture de fichier en VBS

Résolu
Signaler
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006
-
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006
-
Bonjour,
j'ai un pb avec l'ouverture de fichier, voici le source de la partie qui m'interresse:

srcfile= "C:\eleves"
srcfile = Freefile

openfile srcfile for output as #numfichier
While Not EOF(numFichier1)
Line Input #numFichier1, sTemp

Wend

Close #numFichier1

j'ai donc un problème que m'indique le compilateur MS juste au niveai du FOR.

Merci d'avance.
FLorian

Bah je préfère le C, car le VB je comprends pas xD

2 réponses

Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
4
Bonjour,

En vbs

filespec = "C:\eleves"
Const ForReading = 1
Dim fso, theFile, retstring, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
i = 0
Do While theFile.AtEndOfStream <> True
i = i + 1
MsgBox "Ligne " & i & " : " & theFile.ReadLine
Loop
theFile.Close

ctac
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006

Merci beaucoup pour cette réponse.

Donc apparemment il faut créer un un objet de type FSO.

Merci pour cette préciser qui va m'avancer :D.

Bah je préfère le C, car le VB je comprends pas xD