Pomoci filesystemobject (priklad z dokumentace k VBscript):
The following code illustrates the use of the OpenTextFile method to open a
file for appending text:
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
f.Write "Hello world!"
f.Close
End Sub
(reading - pro cteni, writing - pro zapisovani, pricemz se puvodni obsah
prepise, a prave appending zapise retezec na konec existujiciho souboru).
Oldrich
> >
> asi otvaras subor s pristupom Output skus miesto toho dat
> open "xxxx" for Append as #
>
> --
> s pozdravom
> AleXXX
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 09:14 CEST