Writing text to log file.

[winsonlee]

I would like to create a log file. But the function that i have always over write the existing one. it doesnt append to the end of the file. what do i need to change to allow me to append the data at the end of the file ?

    Private Sub AddLog(ByVal filename As String, ByVal error As String)
    Dim sFileText As String
    Dim iFileNo As Integer
      iFileNo = FreeFile
      Open filename For Output As #iFileNo
      Print #iFileNo, error
      Close #iFileNo
    End Sub

[rpeare]

dim fs
dim fAppendFile
dim sSourceFile as string

set fs = createobject("Scripting.filesystemobject")
sSourcefile = "C:\test\outputfile.txt"
set fAppendfile = fs.opentextfile(ssourcefile, 8)
'8 indicates you want to append only

fappendfile.writeline "ERROR"

fappendfile.close
set fs = nothing

[ssanfu]

Instead of using "OUTPUT", use "APPEND". If the file exists, it will append to current file. If the file doesn't exist, it will be created.

    Private Sub AddLog(ByVal filename As String, ByVal error As String)
    Dim sFileText As String
    Dim iFileNo As Integer
      iFileNo = FreeFile
      Open filename For Append As #iFileNo
      Print #iFileNo, error
      Close #iFileNo
    End Sub