(TUTORIAL) Usando o objeto FSO (File System Object)

[augustoclaro 2]

Olá pessoal!

 

Vou dar aqui alguns exemplos do uso do FSO!

 

O FSO pode ser usado para várias coisas, usando arquivos de texto para armazenar informações.

 

Como exemplo muito utíl, você pode usá-lo para fazer arquivos de logs, e depois apenas consultar os arquivos de texto com os registros.

 

Pra criar um objeto FSO usamos:

 

set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Para criar um arquivo de texto, por exemplo, você usaria:

 

<%

set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Criamos o objeto FSO

set nome_arquivo = objFSO.CreateTextFile("C:\nome.txt",true) 'Criamos o arquivo nome.txt na pasta C:\

nome_arquivo.WriteLine("Olá pessoal!!") 'Aqui, nós escrevemos no final do arquivo: Olá pessoal!

nome_arquivo.Close 'Fechamos o arquivo que abrimos.

'Limpando os objetos...
set nome_arquivo = nothing
set objFSO = nothing

%>

Explicação:

 

set objFSO = Server.CreateObject("Scripting.FileSystemObject")

criou um objeto FSO

set nome_arquivo = objFSO.CreateTextFile("C:\nome.txt",true)

criou um arquivo pelo objeto FSO, o nome e diretório do arquivo podem ser alterado - este true serve para dizer ao programa que se existir outro arquivo com o mesmo nome, para sobreescrever. (false não sobreeescreveria)

nome_arquivo.WriteLine("Olá pessoal!!")

aqui usamos o método WriteLine, como o nome já diz, serve para escrever uma linha NO FINAL do arquivo.

nome_arquivo.Close

set nome_arquivo = nothing
set objFSO = nothing

aqui fechamos e limpamos os objetos.

 

Obs.: Veja que no exemplo o arquivo usado de exemplo foi um arquivo de text (.txt), mas podem ser criados todos os tipo de arquivos, desde txt até ASP, PHP ou HTML. Basta mudar a extensão do arquivo.

 

Agora a segunda parte: Como deletar os arquivos?

 

Beleza, veja o seguinte código:

 

<%

Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
set arquivo = objFSO.CreateTextFile("c:\teste.txt",true) 'Cria o arquivo de texto C:\teste.txt

if objFSO.FileExists("c:\teste.txt") then 'Se o arquivo C:\teste.txt existir...

  objFSO.DeleteFile("c:\teste.txt") 'Deleta ele

end if

set objFSO=nothing 'Limpa o objeto

%>

Explicação:

set objFSO = Server.CreateObject("Scripting.FileSystemObject")

criou um objeto FSO

set arquivo = objFSO.CreateTextFile("c:\teste.txt",true)

criou um arquivo

if objFSO.FileExists("c:\teste.txt") then

opa coisa nova! o método FileExists confere se o arquivo existe, se sim, retorna true, se não, retorna false, o seja, o If será executado apenas se retornar true (arquivo existir)

objFSO.DeleteFile("c:\teste.txt",true)

o método DeleteFile deleta o arquivo especificado, se o arquivo não existir, o programa retorna um erro, por isso se faz necessário uso do If acima disso. este true apenas serve para dizer se o arquivo pode ser deletado mesmo sendo apenas leitura, true deleta, false não.

End if

Final da condição

set objFSO=nothing

limpei o objeto

 

Parte 3: Ler um arquivo.

 

Exemplo 1:

 

<%

set objFSO = Server.CreateObject("Scripting.FileSystemObject")  'abre um objeto FSO

set nome_arquivo = objFSO.CreateTextFile("c:\teste.txt",true) 'cria um aquivo (C:\teste.txt)

nome_arquivo.WriteLine("Linha 1") 'Escreve na primeira linha "Linha 1"

nome_arquivo.WriteLine("Linha 2") 'Escreve na segunda linha "Linha 2"

nome_arquivo.WriteLine("Linha 3") 'Escreve na terceira linha "Linha 3"

nome_arquivo.Close 'Fecha o arquivo

set arquivo = objFSO.OpenTextFile("c:\teste.txt",1,false) 'Puxa o arquivo C:\teste.txt

linha = arquivo.ReadLine 'Le a primeira linha do arquivo.

arquivo.close 'Fecha o arquivo

Response.Write "O conteúdo da primeira linha do arquivo é: "&linha 'Escreve o conteúdo da primeira linha do arquivo.

%>

 

Resultado: O conteúdo da primeira linha do arquivo é: Linha 1

 

Explicação:

 

set objFSO = Server.CreateObject("Scripting.FileSystemObject")

criou um objeto FSO

objFSO.CreateTextFile("c:\teste.txt",true)

criou um arquivo

nome_arquivo.WriteLine("Linha 1")

nome_arquivo.WriteLine("Linha 2")

nome_arquivo.WriteLine("Linha 3")

O conteúdo do arquivo agora é:

Linha 1
Linha 2
Linha 3

nome_arquivo.Close

fecha o arquivo

set arquivo = objFSO.OpenTextFile("c:\teste.txt",1,false)

o método OpenTextFile, ocmo o nome já diz, serve pra "puxar" um arquivo. síntaxe: obejto.OpenTextFile("caminho/arquivo.txt",modo,criar) modo = 1 abre o texto apenas para leitura, modo = 2 abre o texto para escrever nele, modo = 8 abre o texto para escrever NO FINAL do arquivo. criar = true ou false, true = se o arquivo nao existir, criar o arquivo com o nome requerido, false = nao criar

linha = arquivo.ReadLine

lê a primeira linha, o ReadLine (por enquanto) lê a primeira linha

arquivo.close

fecha o arquivo

Response.Write "O conteúdo da primeira linha do arquivo é: "&linha

escreve a saída.

 

 

Exemplo 2:

 

<%

set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'abre o objeto FSO

set arquivo = objFSO.CreateTextFile("c:\teste.txt") 'cria um arquivo

arquivo.WriteLine("Linha 1") 'escreve uma linha
arquivo.WriteLine("Linha 2") 'escreve uma linha
arquivo.WriteLine("Linha 3") 'escreve uma linha
arquivo.WriteLine("Linha 4") 'escreve uma linha
arquivo.WriteLine("Linha 5") 'escreve uma linha
arquivo.WriteLine("Linha 6") 'escreve uma linha

arquivo.close 'fecha o arquivo

set arquivo2 = objFSO.OpenTextFile("c:\teste.txt",1,false) 'puxa o arquivo recém criado

do until arquivo2.AtEndOfStream 'fazer até o fim do arquivo...
response.write arquivo2.ReadLine&"<br>" 'Escreve a linha atual + <br> para pular uma linha
loop 'refaz...
arquivo2.close 'fecha o arquivo
%>

Explicação:

 

set objFSO = Server.CreateObject("Scripting.FileSystemObject")

criou um objeto

set arquivo = objFSO.CreateTextFile("c:\teste.txt")

criou um arquivo

arquivo.WriteLine("Linha 1")
arquivo.WriteLine("Linha 2")
arquivo.WriteLine("Linha 3")
arquivo.WriteLine("Linha 4")
arquivo.WriteLine("Linha 5")
arquivo.WriteLine("Linha 6")

conteúdo atual do arquivo:

Linha 1
Linha 2
Linha 3
Linha 4
Linha 5
Linha 6

arquivo.close

Fecha o arquivo

set arquivo2 = objFSO.OpenTextFile("c:\teste.txt",1,false)

puxa o arquivo

do until arquivo2.AtEndOfStream

a propriedade AtEndOfStream serve para dizer que o arquivo acabou. esta linha simplesmente diz: faça até o fim do arquivo.

response.write arquivo2.ReadLine&"<br>"

aqui ele escreve para cada linha do arquivo: linha<br>, ou seja, isso escreverá o conteúdo do arquivo para você

loop

faz o loop

arquivo2.close

fecha o arquivo

 

Bom gente então é isso, logo eu vou fazer a continuação deste tutorial com mais alguns métodos e propriedades, e colocarei o link aqui!

 

Obrigado pela atenção!

 

Qualquer dúvida me adicionem no msn que eu terei prazer em ajudá-los: guclaro@bol.com.br

 

Abraços!

 

Augusto Claro

Progr@mmer

[hargon 64]

Muito bom Augusto.

 

Parabéns. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[augustoclaro 2]

que bom que gostou, primeiro tutorial, fiquei com medo de uma possível rejeição xD