Compartilhar via

Método OpenAsTextStream

  • Artigo

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

Sintaxe

objeto.OpenAsTextStream ([ iomode, [ formato ]])

A sintaxe do método OpenAsTextStream possui essas partes:

Parte Descrição
objeto Obrigatório. Sempre o nome de um objeto Arquivo objeto.
iomode Opcional. Indica o modo de entrada e saída. Pode ser uma das três constantes: ParaLer, ParaEscrever, ou ParaAnexar.
formato 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 para escrever. Se existe um arquivo com o mesmo nome, seu conteúdo anterior será substituído.
ParaAnexar 8 Abrir um arquivo e escrever até o final do 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 método OpenAsTextStream método oferece os mesmos recursos que o OpenTextFile do FileSystemObject. Além disso, o método OpenAsTextStream pode ser usado para escrever em um arquivo.

O código a seguir ilustra o uso do método OpenAsTextStream:

Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            'Create a file
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Hello World"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.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.