Doubler les guillemet dans un variable

J'ai compris c'été tous con :oops:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Set objArgs = WScript.Arguments 
If objArgs.Count  > 0 Then
     For I = 0 to objArgs.Count - 1 
     vrRcpChmFchOuDoss = (objArgs(I))
     Next
      st = vrRcpChmFchOuDoss 
      stExt = Right(st,3) 
      i = InStrRev (st,"\") 
      vrNomFchSlctn = Mid(st,i+1)
Else
     Set oUA = CreateObject("UserAccounts.CommonDialog") 
     x = oUA.ShowOpen 
     vrRcpChmFchOuDoss = (oUA.FileName) 
End if
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile(vrRcpChmFchOuDoss, 1) ' Fichier source
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
Const ForReading = 1, ForWriting = 2 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("sortie.txt", ForWriting,true) ' Fichier de sortie
 
Do Until objSourceFile.AtEndOfStream
   vrLigne = objSourceFile.ReadLine 
   vrLigne = Replace(vrLigne,"""","""""")  
   f.writeline("f.writeline(""" & vrLigne & """)")
Loop
objSourceFile.Close
 
 
f.close