Set objCsv = WScript.Arguments Set objFileSys = WScript.CreateObject("Scripting.FileSystemObject") Set objTxt = objFileSys.OpenTextFile(objCsv(0),1) Set objFolder = objFileSys.OpenTextFile(objFileSys.GetParentFolderName(objCsv(0)) & "\" & objFileSys.GetBaseName(objCsv(0)) & "_ダブルクォーテーション付.csv",2,True) Do Until objTxt.AtEndOfStream csvIn = objTxt.ReadLine objFolder.WriteLine """" & Replace(csvIn,",",""",""",1,-1,1) & """" Loop