OpenTextFile, méthode

  • Article

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

Syntaxe

objet . OpenTextFile (filename, [ iomode, [ create, [ format ]]])

La syntaxe de la méthode OpenTextFile comprend les éléments suivants :

Élément Description
object Obligatoire. Toujours le nom d’un FileSystemObject.
Fichier Obligatoire. Expression de chaîne identifiant le fichier à ouvrir.
iomode Facultatif. Indique le mode d’entrées/sorties. Peut être l’une des trois constantes suivantes : ForReading, ForWriting ou ForAppending.
créer Facultatif. Valeur de type Boolean indiquant si un nouveau fichier peut être créé au cas où le nom filename spécifié n’existe pas. La valeur est True si un nouveau fichier est créé, False dans le cas contraire. La valeur par défaut est False.
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.

Paramètres

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 Ouvrez un fichier à des fins d’écriture uniquement. Utilisez ce mode pour remplacer un fichier existant par de nouvelles données. Vous ne pouvez pas lire à partir de ce fichier.
ForAppending 8 Ouvre un fichier et écrit à la fin de celui-ci. Vous ne pouvez pas lire à partir de ce fichier.

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

Le code suivant illustre l’emploi de la méthode OpenTextFile pour ouvrir un fichier et y ajouter du texte :

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

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.