File System Object question

[PedroX]

I have about 200 documents to which I need to write a header and a footer.
Appending (the footer) is easy, but I cannot figure out how to write to the
very beginning of the file. Any help would be appreciated

[Curt_C [MVP]]

PedroX wrote:

I have about 200 documents to which I need to write a header and a footer.
Appending (the footer) is easy, but I cannot figure out how to write to the
very beginning of the file. Any help would be appreciated

put your new text into a string1,
read in the contents of the doc to string2
string1 = string1 + string2
save string1 back to the doc.

--
Curt Christianson
site: http://www.darkfalz.com
blog: http://blog.darkfalz.com

[McKirahan]

"PedroX" <no**@nowhere.com> wrote in message
news:RX******************@news20.bellglobal.com...

I have about 200 documents to which I need to write a header and a footer.
Appending (the footer) is easy, but I cannot figure out how to write to the very beginning of the file. Any help would be appreciated

Your "documents", I gather, are text files and not MS-Word documents.

You'll have to "rewrite" to entire text file.

Use the ReadAll method to read the intial file then write your header,
the initial file, and the footer to the same file.

[PedroX]

Use the ReadAll method to read the intial file then write your header,
the initial file, and the footer to the same file.

Thanks 4 the replies. I guess that should work. The documents are XML files.
They are about 10 mb each. Would that be a problem?

[Ken Jenkins]

well, thats not the greatest situation to have going on.. those are big
files
"PedroX" <no**@nowhere.com> wrote in message
news:Vu******************@news20.bellglobal.com...

Use the ReadAll method to read the intial file then write your header,
the initial file, and the footer to the same file.

Thanks 4 the replies. I guess that should work. The documents are XML
files.
They are about 10 mb each. Would that be a problem?

[Bob Barrows [MVP]]

PedroX wrote:

Use the ReadAll method to read the intial file then write your
header, the initial file, and the footer to the same file.

Thanks 4 the replies. I guess that should work. The documents are XML
files. They are about 10 mb each. Would that be a problem?

Please don't crosspost to so many groups. This question had nothing to do
with databases (db) or components, so it was certainly off-topic in those
groups, which I've removed from this reply.

If you had mentioned from the start that you were using XML files, you would
have received a different answer. FileSystemObject is not necessary for
modifying XML . I suggest you provide a small example of what you want to
do. Are you really adding information outside of the XML? Or are you adding
nodes to the XML?

Bob Barrows

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[Roland Hall]

"McKirahan" wrote in message news:2-********************@comcast.com...
: "PedroX" <no**@nowhere.com> wrote in message
: news:RX******************@news20.bellglobal.com...
: > I have about 200 documents to which I need to write a header and a
footer.
: > Appending (the footer) is easy, but I cannot figure out how to write to
: the
: > very beginning of the file. Any help would be appreciated
:
: Your "documents", I gather, are text files and not MS-Word documents.
:
: You'll have to "rewrite" to entire text file.
:
: Use the ReadAll method to read the intial file then write your header,
: the initial file, and the footer to the same file.

If you were going to do that, wouldn't this be easier?

sub appendit(file1, file2, file3, t)
dim fso, temp, tempFile, wshShell, oExec
set fso = CreateObject("Scripting.FileSystemObject")
set wshShell = CreateObject("WScript.Shell")
if fso.FileExists(file1) then
if fso.FileExists(file2) then
if fso.FileExists(file3) then
temp = fso.GetTempName
set oExec = wshShell.Exec("%comspec% /c copy " & file1 & "+" & file2
& "+" & file3 & " " & temp)
do while oExec.status = 0
wscript.sleep 100
loop
if fso.FileExists(t) then
fso.DeleteFile(t)
end if
fso.MoveFile temp, t
end if
end if
end if
wscript.echo temp
end sub

appendit "f1.txt","f2.txt","f3.txt","f4.txt"

f4.txt would be replace with the file you wanted to end up with, however, I
wouldn't use this for XML files.

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp