Método CreateTextFile

Crea un nombre de archivo especificado y devuelve un objeto TextStream que se puede utilizar para leer o escribir en el archivo.

Sintaxis

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

Argumentos

• Object: necesario. Siempre es el nombre de un FileSystemObject.
• Filename: necesario. Expresión de cadena que identifica el archivo que se va a crear.
• Overwrite: opcional. Valor booleano que indica si se puede sobrescribir un archivo existente. El valor es true si el archivo se puede sobrescribir, false si no se puede sobrescribir.

• Unicode: opcional. Valor booleano que indica si el archivo se crea como un archivo Unicode o ASCII. El valor es true si el archivo se crea como un archivo Unicode, false si se crea como un archivo ASCII.

  Nota:

  El argumento Unicode está inactivo y se mantiene para imitar la sintaxis VBScript. No tiene ningún efecto. Los archivos creados solo están en formato Unicode.

Observaciones

El siguiente código muestra cómo utilizar el método CreateTextFile para crear y abrir un archivo de texto.

Ejemplo 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 el argumento overwrite es false, para un nombre de archivo que ya existe, se produce un error.

Ejemplo 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

Ejemplo 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