Compartilhar via

Método OpenTextFile

  • Artigo

Abre um determinado arquivo e retorna um objeto TextStream que pode ser usado para ler, gravar ou anexar ao arquivo.

Sintaxe

objeto. OpenTextFile (nome do arquivo, [ iomode, [ create, [ format ]]])

O método OpenTextFile tem estas partes:

Sair Descrição
objeto Obrigatório. Sempre o nome de um FileSystemObject.
Filename Obrigatório. Expressão de cadeia de caracteres que identifica o arquivo a ser aberto.
iomode Opcional. Indica o modo de entrada e saída. Pode ser uma das três constantes: ParaLer, ParaEscrever, ou ParaAnexar.
criar Opcional. Valor booliano que indica se um novo arquivo pode ser criado se o nome de arquivo especificado não existir. O valor será True se um novo arquivo for criado; False se ele não for criado. O padrão é False.
format Opcional. Um dos três valores Tristate usados para indicar o formato do arquivo aberto. Caso seja omitido, o arquivo é aberto como ASCII.

Configurações

O argumentoiomode pode ter qualquer uma das seguintes configurações:

Constante Valor Descrição
ParaLer 1 Abre um arquivo somente leitura. Não é possível escrever nesse arquivo.
ParaEscrever 2 Abra um arquivo somente para gravação. Use esse modo para substituir um arquivo existente por novos dados. Você não pode ler deste arquivo.
ParaAnexar 8 Abrir um arquivo e escrever até o final do arquivo. Você não pode ler deste arquivo.

O argumento formato pode ter qualquer uma das seguintes configurações:

Constante Valor Descrição
TristateUseDefault -2 Abre o arquivo usando o padrão do sistema.
TristateVerdadeiro -1 Abre o arquivo como Unicode.
TristateFalso 0 Abre o arquivo como ASCII.

Comentários

O código a seguir ilustra o uso do método OpenTextFile para abrir um arquivo para acrescentar texto:

Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, True, TristateFalse)
    f.Write "Hello world!"
    f.Close
End Sub

Confira também

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.