Bonjour, je souhaiterais via vbscript, lire un fichier ligne par ligne et ds un premier tps recopier chaque ligne ds un autre fichier.

Voilà mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Const ForReading = 1, ForWriting = 2 
 
Set oFso = CreateObject ("Scripting.FileSystemObject")
 
Set flecture = oFso.OpenTextFile ("D:\Mes documents\Projet NAS\Script_scanmachines\FichierMachines_Global.txt", ForReading)
Set fecriture = oFso.OpenTextFile ("D:\Mes documents\Projet NAS\Script_scanmachines\FichierMachines_OK.txt", ForWriting, true)
 
Do While Not flecture.AtEndOfStream
	ligne = flecture.ReadLine
	fecriture.WriteLine (ligne)
Loop
 
flecture.close
fecriture.close
Set oFso = nothing
Le contenu du fichier FichierMachines_Global.txt est :
test1
test2
test3
test4
test5
test6
test7
test8
test9
test10

Mais le résultat ds le fichier FichierMachines_OK.txt est :
test1਍਍਍਍਍਍਍਍਍਍test3਍਍਍਍਍਍਍਍਍਍test5਍਍਍਍਍਍਍਍਍਍test7਍਍਍਍਍਍਍਍਍਍test9

Je ne comprends pas pourquoi ? quelqu'un peut-il m'aider svp ?

Merci
Greg