Anyone know how to easily write to a log file 1

[ghost2]

I have alot of code to write to a file but I was looking for the simplest way to just open a text file and write to it and if it exists then append to it. Anyone have any example code? Thanks all

 

[jel]

This append to a file (creates it if it doesn't exist)

Public Sub Log(ByRef strLogtext As String)

    Dim objFSO As Scripting.FileSystemObject
    Dim objStream As TextStream
    
    Set objFSO = New Scripting.FileSystemObject
    Set objStream = objFSO.OpenTextFile("c:\TEMP\log.txt", ForAppending, True)
    objStream.Write strLogtext & vbCrLf
    objStream.Close
    
    Set objStream = Nothing
    Set objFSO = Nothing

End Sub

 

[jel]

Oh I forgot: add a reference to Microsoft Scripting Runtime.

 

[ghost2]

Thanks so much jel.