Sujet Précédent Sujet Suivant

La ligne opentextfile ne fonctionne pas

Rolstyam - 27 sept. 2017 à 17:15
NHenry Messages postés 15069 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 29 mai 2023 - 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
A voir également:

1 réponse

Réponse 1 / 1
NHenry Messages postés 15069 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 29 mai 2023 158
27 sept. 2017 à 19:26
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.
0
Rejoignez-nous