La ligne opentextfile ne fonctionne pas

Rolstyam - 27 sept. 2017 à 17:15 - Dernière réponse : NHenry 14003 Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut 13 décembre 2017 Dernière intervention
- 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
Afficher la suite 

1 réponse

Répondre au sujet
NHenry 14003 Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut 13 décembre 2017 Dernière intervention - 27 sept. 2017 à 19:26
0
Utile
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.
Commenter la réponse de NHenry

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.