Neuen Inhalt an Textdatei anhängen

Mit dem Zusatz For Append werden neue Zeilen auch an bestehende Dateien angehängt.

Wenn Sie die bisherigen Inhalte in der Datei behalten wollen, müssen Sie statt For Input den Zusatz For Append wählen. Dann wird die Zeile an den vorhandenen Inhalt angehängt:

Sub FuegeProtokollAn()
	Dim lngKanal As Long

	lngKanal = FreeFile()
	Open ThisDocument.Path & "\Protokoll.txt" For Append As #lngKanal
	Print #lngKanal, "Notiz von " & Time
	Close #lngKanal
End Sub

Diesen Code können Sie beliebig oft aufrufen und er verlängert die Datei Protokoll.txt jedes Mal um eine Zeile mit der aktuellen Uhrzeit.

HTML-Dateien schreiben

Da es sich bei HTML-Dateien nur um Textdateien handelt, können Sie diese mit diesen Prozeduren einfach erstellen.

Technisch ist damit eigentlich alles beschrieben, aber die weite Verbreitung von HTML-Dateien soll hier wenigstens noch eine besondere Erwähnung finden. Bei HTML-Dateien handelt es sich ja auch nur um Textdateien, in denen zwischen den Inhalten durch spitze Klammern gekennzeichnete "Befehle" stehen.

Für die spätere Funktionsfähigkeit in einem Browser (MS-Internet Explorer, Opera, Firefox o.ä.) müssen die HTML-Befehle bestimmte Regeln wie die "Wohlgeformtheit" besitzen, dass also jedes öffnende Element auch wieder geschlossen wird, aber aus Sicht Ihres Code ist es eine beliebige Textdatei.