Közben megoldódott a probléma. A help szerint a ForAppending=8, a péda
szerint pedig 3. Itt a hiba! Én egy az egyben másoltam át a helpből, és nem
olvastam el figyelmesen a szöveget...
Azért köszi!
Üdv:
Nagy Attila
Mail: attila.nagy at ni.com
Fekete Robert
<frobesz at axelero To: elektro at irisz.hu
.hu> cc:
Sent by: Subject: Re: Excel VB script kérdés
elektro-admin at ir
isz.hu
08/26/2002 01:20
PM
Please respond
to elektro
a Scripting.FileSystemObject -et felvetted a modulok közé?
sokat szívtam azzal hogy sehol sem modják NINCS alapban felvéve
most igy fejből passz, de othonról megtudom mondani, hogy melyik dll-t kell
felvenni
FRob
> Szeretnék Excel VB scriptben olyat létrehozni, ami egy létező .txt
> kiterjesztésű állományba hozzáfűzve írjon szöveget.
>
> Első nekifutásra a help-ben szereplőt használtam:
>
> 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
>
> Futtatáskor pedig azt irja ki, hogy "Invalid procedure call or argument"
a
> *-hal jelölt sorban. A c:\testfile.txt már létező állomány, csak
szeretnék
> hozzáfűzni még sztringeket. Hogyan tudnám rávenni ezt a nyavajást az
> együttműködésre???
>
> Segítségeket előre is köszönom:
>
> Nagy Attila
>
> Mail: attila.nagy at ni.com
>
>
>