adding additional text to an already written file

[Shadowcat2021]

Okay I need help trying to add paragraphs not lines but full text. Here is a code that i build in order add the text to a file.

Dim fiParagraph
Dim fsoParagraph
set fsoParagraph = CreateObject("Scripting.FileSystemObject")
set fiParagraph = fsoParagraph.OpenTextFile("C:\Hosts.txt", 2, true)

if err.number = 0 then
    fiMessage.write vendorparagraph
    fiMessage.close
end if

set fiMessage = nothing
set fsoMessage = nothing

I got a message when I start it it reads object required: fiMessage

 

[PHV]

Tip: use the Option Explicit[/i] instruction.
fiMessage is not the same as fiParagraph.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Geates]

You might also want to define the text format when opening the file - wouldn't want to write unicode to an ascii file. Also, you are opening the file for writing (2) which means the char pointer is set to the first bit. With append (8), the pointer is set to the last bit in the file.

const ASCII = 0
set fiParagraph = fsoParagraph.OpenTextFile("C:\Hosts.txt", [red]8[/red], true, [red]ASCII[/red])

-Geates