PEAK-System Forum

Hi Uwe,
Thanks for your reply and help. The examples work well.

Thanks

Hi,
In my project I need to open a file for Text Streaming

' Open file for input streaming
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso ...