Partager via


OpenAsTextStream, méthode

Ouvre un fichier spécifié et retourne un objet TextStream qui peut être utilisé pour lire, écrire ou ajouter au fichier.

Syntaxe

objet . OpenAsTextStream ([ iomode, [ format ]])

La syntaxe de la méthode OpenAsTextStream comporte les parties suivantes :

Élément Description
object Obligatoire. Toujours le nom d’un objet File .
iomode Facultatif. Indique le mode d’entrées/sorties. Peut être l’une des trois constantes suivantes : ForReading, ForWriting ou ForAppending.
format Facultatif. L’ une des trois valeurs Tristate servant à indiquer le format du fichier ouvert. Si elle n’est pas précisée, le fichier est ouvert au format ASCII.

Settings

L’argument modeES peut prendre l’un des paramètres suivants :

Constante Valeur Description
ForReading 1 Ouvre un fichier en lecture seule. Il est impossible d'écrire dans ce fichier.
ForWriting 2 Ouvre un fichier en écriture. S'il existe un fichier du même nom, le contenu précédent est remplacé.
ForAppending 8 Ouvre un fichier pour écrire à la fin de ce dernier.

L’ argument format peut prendre l’un des paramètres suivants :

Constante Valeur Description
TristateUseDefault -2 Ouvre le fichier à l’aide de la valeur système par défaut.
TristateTrue -1 Ouvre le fichier au format Unicode.
TristateFalse 0 Ouvre le fichier au format ASCII.

Remarques

La méthode OpenAsTextStream fournit la même fonctionnalité que la méthode OpenTextFile de FileSystemObject. En outre, la méthode OpenAsTextStream peut servir à écrire dans un fichier.

Le code suivant illustre l’usage de la méthode OpenAsTextStream :

Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            'Create a file
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Hello World"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.