Abre o arquivo especificado e retorna um objeto TextStream que pode ser lido, gravado ou anexado ao arquivo.
object.OpenTextFile(nome do arquivo[, iomode[, criar[, formato]]])
parâmetro
objeto: obrigatório. Espera-se que seja o nome de um objeto FileSystemObject.
nome do arquivo: obrigatório. Uma expressão de string que especifica o nome do arquivo a ser aberto.
iomode: opcional. Modo de entrada/saída, uma das três constantes a seguir: ForReading, ForWriting ou ForAppending.
criar: opcional. Valor booleano que indica se um novo arquivo pode ser criado quando o nome de arquivo especificado não existe. True para permitir a criação de novos arquivos, False caso contrário. O valor padrão é Falso.
formato: opcional. Um dos três valores Tristate que indicam o formato no qual o arquivo será aberto. Se este parâmetro for omitido, o arquivo será aberto no formato ASCII.
configurar
O parâmetro iomode pode ser uma das seguintes configurações:
Descrição do valor constante
ForReading 1 abre o arquivo no modo somente leitura. Este arquivo não pode ser gravado.
ForWriting 2 abre o arquivo apenas para gravação. Este arquivo não pode ser lido.
ForAppending 8 abre o arquivo e escreve no final do arquivo.
O parâmetro de formato pode ser uma das seguintes configurações:
Descrição do valor constante
TristateUseDefault -2 abre o arquivo no formato padrão do sistema.
TristateTrue -1 abre o arquivo no formato Unicode.
TristateFalse 0 Abra o arquivo no formato ASCII.
ilustrar
O código a seguir ilustra como usar o método OpenTextFile para abrir e gravar um arquivo:
Copie o código do código da seguinte forma:
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Definir fso = CreateObject(Scripting.FileSystemObject)
Definir f = fso.OpenTextFile(c:/testfile.txt, ForWriting, True)
f.Escreva Olá!
f.Fechar
Finalizar sub