[VBScript] Aprire e sostituire virgolette in file fto. CSV

[fraude]

Ciao a tutti.

Con il seguente codice in VBScript sto provando a :

1. Aprire sei file CSV;
2. Sostituire all'interno di ciascun file CSV il simbolo virgolette con uno spazio;
3. Chiudere e salvare ciascun file file CSV in fto. TXT.

Il problema è che il risultato è sbagliato :

• Il file Output_D1.txt è un file vuoto;
• Il file Output_D2.txt contiene le righe del file Output_D1.csv, invece delle righe del file Output_D2.csv;
• Il file Output_D3.txt contiene le righe del file Output_D2.csv, invece delle righe del file Output_D3.csv;
• Il file Output_D4.txt contiene le righe del file Output_D3.csv, invece delle righe del file Output_D4.csv;
• Il file Output_D5.txt contiene le righe del file Output_D4.csv, invece delle righe del file Output_D5.csv;
• Il file Output_D6.txt contiene le righe del file Output_D5.csv, invece delle righe del file Output_D6.csv;
• Nessun file TXT con i dati di Output_D6.csv

Cosa sto sbagliando ?
Grazie

 
   nArr = Array("D1","D2","D3","D4","D5","D6")   

   Set reP =new RegExp  
   reP.Pattern ="\"""     

   For I =0To UBound(nArr) 
      InFilename ="Output_"& nArr(I)&".csv"
      Set FILE1 = CreateObject("scripting.FileSystemObject")
      Set infile = FILE1.OpenTextFile(InFileName,1,False)   
      strg = reP.Replace(strg," ")
      InFilenameNew ="Output_"& nArr(I)&".txt"
      Set Outfile = File1.CreateTextFile(inFileNameNew,1,False)
      Outfile.Write(strg) 
      strg = infile.ReadAll
      infile.Close  
   Next