Grr Pb ouverture de fichier en VBS
Résolu
0shii
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006
-
7 févr. 2006 à 23:37
0shii Messages postés 2 Date d'inscription mardi 7 février 2006 Statut Membre Dernière intervention 8 février 2006 - 8 févr. 2006 à 10:54
0shii Messages postés 2 Date d'inscription mardi 7 février 2006 Statut Membre Dernière intervention 8 février 2006 - 8 févr. 2006 à 10:54
2 réponses
CTAC
Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
5
8 févr. 2006 à 02:39
8 févr. 2006 à 02:39
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
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
0shii
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006
8 févr. 2006 à 10:54
8 févr. 2006 à 10:54
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
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