O que é FSO (File System Object) ?

O FSO é um componente nativo do IIS que nos permite manipular arquivos, diretório e drives no servidor.

Criando um arquivo TXT e escrevendo nele:

<% 
'Instância o objeto FSO. 
Set Fso = CreateObject("Scripting.FileSystemObject") 
 
'Utilizando a propriedade CreateTextFile para criar o arquivo. 
Set Cria = Fso.CreateTextFile("e:\home\login\web\teste\arquivo.txt",True) 
 
'Com o método WriteLine você escreve uma linha no arquivo criado acima. 
Cria.WriteLine "Criando..." 
 
Response.write "Arquivo criado" 
 
'Fecha o arquivo criado. 
Cria.Close 
 
'Destruíndo objetos 
Set Fso = nothing 
Set Cria = nothing 
%>

Acima criamos um arquivo de texto com o método CreateTextFile. Utilize o método CreateFolder para manipular diretórios e o método Drives para manipulação de drives.

Lendo o arquivo TXT e mostrando na tela:

<% 
'O parâmetro forReading é utilizado somente para leitura. 
Const forReading = 1, forWriting = 2, forAppending = 8 
 
'Instância o objeto FSO. 
Set Fso = CreateObject("Scripting.FileSystemObject") 
 
'O método GetFile retorna o arquivo existente. 
Set ObjFile = Fso.GetFile("e:\home\login\web\teste\arquivo.txt") 
 
'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto. 
Set objStream = ObjFile.OpenAsTextStream(forReading,false) 
 
'Looping para varrer todas as linha do arquivo. 
While Not ObjStream.AtEndOfStream 
 
'O método Readline lê uma linha de um arquivo 
Linha = Linha & ObjStream.Readline & "<br>" 
Wend 
 
'Mostra o conteúdo. 
Response.write Linha 
 
'Fecha o arquivo. 
objStream.Close 
 
'Destruíndo objetos 
Set Fso = nothing 
Set objStream = nothing 
%>

Adicionando uma linha no arquivo TXT já criado:

<% 
'O parâmetro forReading é utilizado somente para leitura. 
Const forReading = 1, forWriting = 2, forAppending = 8 
 
'Instância o objeto FSO. 
Set Fso = CreateObject("Scripting.FileSystemObject") 
 
'Abre o arquivo com o método OpenTextFile. 
Set ArqTxt = Fso.OpenTextFile("e:\home\login\web\teste\arquivo.txt",8,True) 
 
'Arquivo aberto, escreve no arquivo 
ArqTxt.WriteLine("Mais uma linha com o FSO!") 
 
'Fecha o arquivo com o método Close. 
ArqTxt.Close 
 
'Destrói o objeto. Set ArqTxt = nothing 
 
'Retorna o arquivo que será usado. 
Set ObjFile = Fso.GetFile("e:\home\login\web\teste\arquivo.txt") 
 
'Abre o arquivo novamente, agora para a leitura ! 
Set ObjStream = ObjFile.OpenAsTextStream(forReading,false) 
 
'Looping para varrer todas as linhas do arquivo. 
While Not ObjStream.AtEndOfStream 
'O método Readline lê uma linha de um arquivo. 
Linha = Linha & ObjStream.Readline & "<br>" 
Wend 
 
'Mostra o conteúdo. 
response.write Linha 
 
'Destruíndo objetos 
Set Fso = nothing 
Set objStream = nothing 
%>

Você deve substituir o diretório “teste” usado nesse exemplo pelo diretório que você deseja gravar e ler o arquivo. Lembrando que esse diretório deve necessariamente ter permissão de escrita e caso não possua, a mesma pode ser concedida através de solicitação via abertura de chamado ao email suporte@inetweb.com.br.

Você também deve alterar, na linha e:\home\xyz\web\teste, o xyz pelo seu login de FTP dentro da Inetweb.

Obs.: No final do script é necessário atribuir o valor Nothing para os objetos criados, conforme os exemplos acima.

IMPORTANTE: A Inetweb não é desenvolvedora deste componente, ficando à nossa responsabilidade somente o suporte na utilização do mesmo. Para maiores informações sobre funcionalidades, recursos, sugestões e reclamações, recomendamos que procure o desenvolvedor responsável do componente.

Is this Base de conhecimento useful? Useful Useless 0 of 0 people say this Base de conhecimento is useful.