FlowFact - Entwicklungstools

zurück

Sub - AppendFile
Text an Datei anhängen

  Sub AppendFile(ByVal strFileName As String, ByVal strMsg As String)  
 


strFileName: Dateiname mit Ordnernamen


Public Sub AppendFile(ByVal strFileName As String, ByVal strMsg As String)
    Dim oLog As Scripting.TextStream

    On Error Resume Next
    Set oLog = m_oFso.OpenTextFile(strFileName, ForAppending, True)
    oLog.WriteLine strMsg
    oLog.Close
End Sub