**METHOD:** `fso.CreateTextFile(path[, overwrite[, unicode]])`

**Description**
Crée un fichier texte et retourne un `TextStream` pour écrire.

**Syntax**
`fso.CreateTextFile(path[, overwrite[, unicode]])`

**Paramètres**
– `path` : Chemin du fichier.
– `overwrite` : `True` pour écraser si existe.

**Retour**
Un objet `TextStream`.

**Exemples**
« `vb
Dim fso, ts
Set fso = CreateObject(« Scripting.FileSystemObject »)
Set ts = fso.CreateTextFile(« C:tempdemo.txt », True)
ts.WriteLine « Hello from VBScript »
ts.Close
« `

**Voir aussi**
`TextStream.WriteLine`, `FileSystemObject.OpenTextFile`