Quote Originariamente inviata da optime Visualizza il messaggio
quindi tuttapposhto?
Si grazie, tuttapposhto !

Di seguito il codice funzionante... buon we!
codice:
   nArr = Array("D1","D2","D3","D4","D5","D6")   

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


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