O que é FSO (File System Object) ? - Ajuda Inetweb - Base de Conhecimento
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.