Re: ActiveXObject

From: Atlas (ovahalik@atlas.cz)
Date: 24. 07. 2001, 14:19 CEST


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