bonjour a tous je suis debutant en vbscript j ai voulu faire un bout de script me permettant la Lecture d'un fichier texte au format CSV (champs séparés par points-virgules). et je souhaite afficher le contenu de mon de mon fichier pour tester si il fonctionne bien mais j ai un bug et je ne sais pas pourquoi  est ce quelqu un pourrait voir le code ci dessous et me dire d ou vien le Pb.merci
 
dim s
dim s2
dim fields
dim  fso
 
 
Const ForReading=1
'Lecture d'un fichier texte au format CSV (champs séparés par points-virgules)
set fso = CreateObject("Scripting.FileSystemObject" )
set f = fso.GetFile(filename)
set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
set f2 = fso.GetFile(test)
set ts2 = f.OpenAsTextStream(Forwriting, TristateUseDefault)
 
do while (Not ts.AtEndOfStream)
   s = ts.ReadLine
   fields = Split(s, "," )
   s2=ts2.writeline
loop

-tu ne définis pas les constante ForWriting et TristateUseDefault
-tu te goure dans ton split, tu met une virgule à la place d'un point-virgule
-tu utilises incorrectement la méthode WriteLine, cf http://msdn.microsoft.com/library/ [...] teline.asp
-tu ne fait rien de ce que tu as récupéré dans "fields"