OpenTextFile method (Método OpenTextFile)

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 ficheiro, [ iomode, [ criar, [ formato ]]])

O método OpenTextFile tem as seguintes partes:

Sair	Descrição
objeto	Obrigatório. Sempre o nome de um FileSystemObject.
nome do ficheiro	Obrigatório. Expressão de cadeia que identifica o ficheiro a abrir.
iomode	Opcional. Indica o modo de entrada e saída. Pode ser uma das três constantes: ParaLer, ParaEscrever, ou ParaAnexar.
criar	Opcional. Valor booleano que indica se um novo ficheiro pode ser criado se o nome de ficheiro especificado não existir. O valor é Verdadeiro se for criado um novo ficheiro; Falso se 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 ficheiro apenas para escrever. Utilize este modo para substituir um ficheiro existente por novos dados. Não pode ler a partir deste ficheiro.
ParaAnexar	8	Abrir um arquivo e escrever até o final do arquivo. Não pode ler a partir deste ficheiro.

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 seguinte ilustra a utilização do método OpenTextFile para abrir um ficheiro 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

• 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.