[转] csv文件的读写

Dim fso As New FileSystemObject

Dim fil As File

Dim ts As TextStream

Set fso = CreateObject("Scripting.filesystemobject")

Dim yy, y1, y2, y3

y1 = fil_path

'这里取得ASP里面传递的文件名

yy =".\text.csv"

fso.CreateTextFile (yy)

Set fil = fso.GetFile(yy)

Set ts = fil.OpenAsTextStream(ForWriting)

'数组参数传递

ts.Write (yy)

ts.WriteBlankLines (1)

ts.Write (yy)

ts.WriteBlankLines (1)

ts.Write (bol_end)

ts.WriteBlankLines (1)

ts.Write (sum_a2)

ts.WriteBlankLines (1)