Create/overwrite a file

here is the best resource...all your questions would be answered...


post back if you still have any problems...

-DNG

Ok almost there now. It works the first time but the 2nd time I get an error on the line

set ts = fspenTextFile(filepath, ForWriting, true)

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

So far I have:

Set fso = CreateObject("Scripting.FileSystemObject")

filepath="\\myserver\users\intranets\myintranet\assets2\wslist.txt"

If fso.FileExists(filepath) Then

set ts = fspenTextFile(filepath, ForWriting, true)
ts.write report

Else

Set ts = fso.CreateTextFile (filepathForWriting)
ts.write report

End If

ts.close
Response.Write("Done")

Cracked it - problem was I had to replace the word ForWriting with the number 2


eg:

set ts = fspenTextFile(filepath, 2, true)

cheers

Ed

great..glad you solved it...

-DNG

[1] You must not have defined ForWriting.
[2] If you use third param of opentextfile to true, don't/need not bother test existence. It is redundant.
[tt]
const ForWriting=2
Set fso = CreateObject("Scripting.FileSystemObject")
filepath="\\myserver\users\intranets\myintranet\assets2\wslist.txt"
set ts = fspenTextFile(filepath, ForWriting, true)
ts.write report
ts.close
set ts=nothing
set fso=nothing
Response.Write("Done")
[/tt]