Méthode CreateTextFile

Crée un nom de fichier spécifié et renvoie un objet TextStream qui peut être utilisé pour lire le fichier ou écrire dedans.

Syntaxe

object.CreateTextFile(filename[, overwrite[, unicode]])

Arguments

• object : requis. Toujours le nom d'un objet FileSystemObject.
• filename : requis. Expression de chaîne qui identifie le fichier à créer.
• overwrite : facultatif. Valeur booléenne indiquant si vous pouvez écraser un fichier existant. La valeur est True si le fichier peut être écrasé et False s'il ne peut pas l'être.

• unicode : facultatif. Valeur booléenne indiquant si le fichier est créé en tant que fichier Unicode ou ASCII. La valeur est True si le fichier est créé en tant que fichier Unicode et False s'il est créé en tant que fichier ASCII.

  Remarque :

  L'argument unicode est passif et conservé pour reproduire la syntaxe de script VB. Il n'a aucun effet. Tous les fichiers créés sont au format Unicode uniquement.

Remarques

Le code suivant illustre l'utilisation de la méthode CreateTextFile pour créer et ouvrir un fichier texte.

Exemple 1 :

Sub CreateAfile
   Dim fso, tso
  Set fso = CreateObject("Scripting.FileSystemObject")
   Set tso = fso.CreateTextFile("c:\testfile.txt", True)   
   tso.Close
End Sub
CreateAfile

Si l'argument overwrite est False pour un nom de fichier qui existe déjà, une erreur survient.

Exemple 2 : CreateNewFile

Sub CreateNewFile()
    Dim fso, tso
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tso = fso.CreateTextFile("C:\example1.txt", True)   ' Overwrites if the file exists.
    tso.WriteLine("This is a new text file.")   ' Write some text to the file.
    tso.Close   ' Close the file.
     Set fso = Nothing
End Sub
CreateNewFile

Exemple 3 :

Sub CreateFileNoOverwrite ()
    Dim fso, tso
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set tso = fso.CreateTextFile("C:\Temp\testfile.txt", False)   ' Do not overwrite if the file exists.
    myerr = Err.Number
    If myerr <> 0 Then
        ‘Error handling code File already exists and won't be overwritten."
    Else
        tso.WriteLine("This file won't be overwritten if it exists.")   ' Write some text to the file.
        tso.Close   ' Close the file. 
    End If
    Err.Clear
    On Error GoTo 0
    Set fso = Nothing
End Sub

CreateFileNoOverwrite