Rolstyam
-
27 sept. 2017 à 17:15
NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024
-
27 sept. 2017 à 19:26
Bonjour,
Dans le cas d'un projet, il m'a été confié de retravailler une page en VBS, langage que je ne connaissait que de nom. J'ai du intégrer la lecture d'un fichier, mais ma page se bloque sur la ligne d'ouverture du fichier (ma ligne 9) Pouvez vous m'aider ?
voilà mon code :
On Error goto 0
dim filesys, text, readfile, contents, tablo(), I
I = 0
set filesys = CreateObject("Scripting.FileSystemObject") 'Ligne d'erreur set readfile = filesys.OpenTextFile("sam.txt", 1, false) do while readfile.AtEndOfStream <> true contents = readfile.ReadLine tablo(I)=contents I=I+1 loop readfile.close