OpenTextFile, méthode

Microsoft VBScript

Microsoft® Visual Basic® Scripting Edition OpenTextFile, méthode  Référence de la bibliothèque d'exécution Scripting
Version 2

Voir aussi                   Application


Description
Ouvre un fichier spécifié et renvoie un objet TextStream pouvant être utilisé pour lire le fichier, écrire ou insérer un élément dans le fichier.
Syntaxe
object.OpenTextFile(filename[, iomode[, create[, format]]])

La méthode OpenTextFile comprend les éléments suivants :

Élément Description
object Correspond toujours au nom d'un objet FileSystemObject.
filename Expression de chaîne identifiant le fichier à ouvrir.
iomode Facultatif. Indique le mode entrée/sortie. Cet argument peut être une des trois constantes : ForReading, ForWriting ou ForAppending.
create Facultatif. Valeur de type Boolean qui indique si un nouveau fichier peut être créé si 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 3-états permettant d'indiquer le format du fichier ouvert. Si cette valeur est omise, le fichier est ouvert en mode ASCII.

Valeurs
L'argument iomode peut prendre les valeurs suivantes :

Constante Valeur Description
ForReading 1 Ouvre un fichier en lecture seule. Vous ne pouvez pas écrire dans ce fichier.
ForWriting 2 Ouvre un fichier en écriture seule. Vous ne pouvez pas lire à partir de ce fichier.
ForAppending 8 Ouvre un fichier et écrit à la fin du fichier.

L'argument format peut prendre l'une des valeurs suivantes :

Constante Valeur Description
TristateUseDefault -2 Ouvre le fichier avec la valeur par défaut du système.
TristateTrue -1 Ouvre le fichier comme de l'Unicode.
TristateFalse  0 Ouvre le fichier comme de l'ASCII.

Notes
Le code suivant illustre l'utilisation de la méthode OpenTextFile pour ouvrir un fichier et y écrire du texte :
Sub OpenTextFileTest
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "Bonjour!"
  f.Close
End Sub