FSO - запись в файл

[Лёха_Virus]

в общем я создаю FSO , открываю файл

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(App.path & "\" & "do_it.cfg")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

ну там ts.write, ts.writeline понятно, а как можно удалить последнюю строку?

[RayShade]

вот так:

Код: Выделить всё

set fs = new filesystemobject
with fs
set str = .openastextstream(forreading)
st = str.readall
str.close
st = mid(st,1,instrev(1,st,vbcrlf,vbtextcompare)-2)
set str = .openastextstream(forwriting)
str.write st
str.close
end with


[Лёха_Virus]

это понятно, хитрый какой значит нет чего нибудь типа
str.delete?

[RayShade]

Нет %)