Método CreateTextFile

Cria um nome de arquivo especificado e retorna um objeto TextStream que pode ser usado para ler ou gravar no arquivo.

Sintaxe

objeto. CreateTextFile (nome do arquivo, [ substituição, [ unicode ]])

O método CreateTextFile tem estas partes:

Sair	Descrição
objeto	Obrigatório. Sempre o nome de um objeto FileSystemObject ou Folder .
Filename	Obrigatório. Expressão de cadeia de caracteres que identifica o arquivo a ser criado.
Substituir	Opcional. Valor booliano que indica se um arquivo existente pode ser substituído. O valor será True se o arquivo puder ser substituído; False se não puder ser substituído. Se omitido, os arquivos existentes poderão ser substituídos.
Unicode	Opcional. Valor booliano que indica se o arquivo é criado como um arquivo Unicode ou ASCII. O valor será True se o arquivo for criado como um arquivo Unicode; False se ele for criado como um arquivo ASCII. Se omitido, um arquivo ASCII será assumido.

Comentários

O código a seguir ilustra como usar o método CreateTextFile para criar e abrir um arquivo de texto. Se o argumento de substituição for False ou não for fornecido, para um nome de arquivo que já existe, ocorrerá um erro.

Sub CreateAfile
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\testfile.txt", True)
    a.WriteLine("This is a test.")
    a.Close
End Sub

Confira também

• Objetos (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.