Bonjour !
J'ai un petit prob....
Je n'arrive pas à remplacer la valeur contenue dans un fichier txt par la valeur d'une de mes variable "cpt".

Voici le code :

function GetFile (FileName)
If FileName<>"" Then
Dim FS, FileStream
Set FS = CreateObject("Scripting.FileSystemObject")
on error resume Next
Set FileStream = FS.OpenTextFile(FileName)
GetFile = FileStream.ReadAll
End If
End Function
function GetExtension (File)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetExtention = fso.GetExtensionName(File)
end function

'____________________________________________



Dim fso, f, f1, sf, fc, file, nomfichier, cpt, oFso, fo
Const ForReading = 1, ForWriting = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("M:\VBS\test")
Set fc = f.Files

Set f = fso.GetFolder(f)
Set fc = f.Files


Set oFso = CreateObject("Scripting.FileSystemObject")
Set fo = oFso.OpenTextFile("M:\VBS\cpt.txt", ForReading)
while Not fo.AtEndOfStream
wscript.echo fo.ReadLine
cpt= fo.ReadLine
Wend


For Each f2 in fc
file = f2
'lis un fichier txt
FileContents = GetFile(file)
if Len(month(now())) = 1 then
mois = "0" & month ((now()))
'wscript.echo "le jour du mois est inférieur à 10" 'test
else
mois = month((now()))
End if

datejour = cpt & "_" &year(now()) & mois & day(now()) & f2.name
f2.name = datejour
cpt = cpt+1
Next
wscript.echo "Terminé" ' test
wscript.echo cpt 'test

'fo.ReadLine = cpt !!!! ici est le problème je veux mettre la valeur de mon compteur dans le chiffre qui est dans le fichier txt
fo.Close

Merci d'avance
a++ (le ++ ne correspond pas à une incrémentation !! )