[решено] Как записать строку в текстовый фаил?

[Timurgall]

Задача записать размер файла в текстовый фаил.

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Filedev = FSO.GetFile("h:\backup\workdb.dev")
fsize = Filedev.Size
Set Filetxt = FSO.OpenTextFile ("h:\backup\workdb.txt")
Filetxt.WriteLine Date & "->" & fsize & "bytes"
filetxt.close

Выходит ошибка в строке 5 символ 1 , Bad File Mod
Не могу понять где ошибка, или как сделать правильно?

[Timurgall]

Проблема решена, вот так правильно
Set Filetxt = FSO.OpenTextFile ("h:\backup\workdb.txt", 8, true)