[转] 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)