![]() |
FlowFact - Entwicklungstools |
![]() |
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 |