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 ?
Code: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