Converts escaped quotes: \" into Microsoft escaped quotes: "" in a text/CSVfile.

escapedquotesfix.vbs

Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True   
objRegEx.IgnoreCase = True
objRegEx.Pattern = "\"""

File1 = WScript.Arguments.Item(0)

If wscript.arguments.count > 1 Then
	File2 = wscript.arguments.item(1)
Else
	File2 = File1
End If

Set objFile = objFSO.OpenTextFile(File1, ForReading)
strText = objFile.ReadAll
objFile.Close

strNewText = Replace(strText, "\""", """""")

If objFSO.FileExists(File2) Then
	Set objFile = objFSO.OpenTextFile(File2, ForWriting)
Else
	Set objFile = objFSO.CreateTextFile(File2)
End If

objFile.WriteLine strNewText
objFile.Close