Запись данных в CSV файл
Добавлено: 11 окт 2010, 23:37
Помогите пожалуйста написать скрипт для записи данных в csv файл.
Вот процедура записи времени и размера... не знаю как реализовать запись в следующие строки подряд... на данный момент запись идёт только в строку номер 1.
Код: Выделить всё
Dim FSO, F, FileName, tso
Set FSO = CreateObject("Scripting.FileSystemObject")
FileName = "C:\Sizes.csv"
If Not fso.FileExists(FileName) Then
Set tso=fso.CreateTextFile(FileName,false,true)
tso.WriteLine CStr(CStr(Size_) + ";" + CStr(Time_) + ";")
tso.Close
End If
Set F = FSO.OpenTextFile(FileName, 2)
F.WriteLine CStr(Size_) + ";" + CStr(Time_) + ";"
F.Close