Am Sun, 10 Sep 2006 13:56:01 -0700 schrieb j:
This sample allows you to append the text to a file:
Public Sub WriteFile(ByRef Path As String, _
ByRef Text As String, _
Optional ByVal bAppend As Boolean _
)
On Error GoTo AUSGANG
Dim FileNr As Long
FileNr = FreeFile
Select Case bAppend
Case False
Open Path For Output As #FileNr
Case Else
Open Path For Append As #FileNr
End Select
Print #FileNr, Text;
AUSGANG:
If FileNr Then CloseFileHandle FileNr
End Sub
