Share via


OpenTextFile-Methode

Öffnet eine angegebene Datei und gibt ein TextStream-Objekt zurück, das zum Lesen aus, Schreiben in oder Anfügen an die Datei verwendet werden kann.

Syntax

-Objekt.OpenTextFile (dateiname, [ iomode, [ create, [ format ]]])

Die Methode OpenTextFile hat folgende Teile:

Teil Beschreibung
Objekt Erforderlich. Immer der Name eines FileSystemObject.
Dateiname Erforderlich. Zeichenfolgenausdruck, der die zu öffnende Datei angibt.
iomode Optional. Gibt den Eingabe-/Ausgabemodus an. Kann eine von drei Konstanten sein: ForReading, ForWriting oder ForAppending.
create Optional. Boolescher Wert, der angibt, ob eine neue Datei erstellt werden kann, wenn der angegebene Dateiname nicht vorhanden ist. Der Wert ist True , wenn eine neue Datei erstellt wird. False , wenn es nicht erstellt wurde. Der Standardwert ist False.
format Optional. Einer von drei Tristate-Werten, die verwendet werden, um das Format der geöffneten Date anzugeben. Wenn das Argument nicht angegeben wird, wird die Datei als ASCII geöffnet.

Einstellungen

Das iomode-Argument kann eine der folgenden Einstellungen haben:

Konstante Wert Beschreibung
ForReading 1 Öffnet eine Datei nur zum Lesen. Sie können nicht in diese Datei schreiben.
ForWriting 2 Öffnen Sie eine Datei nur zum Schreiben. Verwenden Sie diesen Modus, um eine vorhandene Datei durch neue Daten zu ersetzen. Sie können aus dieser Datei nicht lesen.
ForAppending 8 Öffnen einer Datei zum Schreiben an ihrem Ende. Sie können aus dieser Datei nicht lesen.

Für das Argument Format ist jede der folgenden Einstellungen zulässig:

Konstante Wert Beschreibung
TristateUseDefault -2 Öffnet die Datei unter Verwendung der Systemvorgabe.
TristateTrue -1 Öffnet die Datei als Unicode.
TristateFalse 0 Öffnet die Datei als ASCII.

HinwBemerkungeneise

Im folgenden Code ist die Vorgehensweise zum Verwenden der OpenTextFile-Methode des Öffnens einer Datei zum Anhängen von Text veranschaulicht:

Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, True, TristateFalse)
    f.Write "Hello world!"
    f.Close
End Sub

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.