la ligne opentextfile ne fonctionne pas

Question

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'erreurset readfile = filesys.OpenTextFile("sam.txt", 1, false)do while readfile.AtEndOfStream <> truecontents = readfile.ReadLinetablo(I)=contentsI=I+1loopreadfile.close

NHenry · Answer

Pourquoi ne pas utiliser directement les fonction de VB6 ?
Dim line As String
 
   Open App.Path & "\Temp.txt" For Input As #1
do until EOF(1)
      Line Input #1, line
loop

Close #1 

A adapter bien sûr.

La ligne opentextfile ne fonctionne pas

1 réponse

Votre réponse

Discussions similaires