[Resolvido] Fso Criar, Gravar, Ler, Mover, Copiar E Excluir

[xanburzum 169]

Aqui veremos como criar, gravar, ler, mover, copiar e excluir arquivos de texto de uma página ASP (Active Server Pages).

 

Você pode usar um arquivo de texto por uma questão de simplicidade (quando um banco de dados ou um formato de arquivo mais complicado for demais) ou quando existirem dados importantes no formato de arquivos de texto. Os cenários típicos incluem:

• Leitura ou gravação de um arquivo plano que pode ser criado ou usado por um mainframe, um aplicativo de outros fabricantes ou um parceiro comercial.

 

• Gerar dinamicamente lotes ou arquivos de script do Windows com base em parâmetros fornecidos pelo aplicativo cliente.

 

O objeto COM (Component Object Model) Scripting.FileSystemObject expõe um rico grupo de recursos para manipular unidades, pastas e arquivos. Este objeto FSO (FileSystemObject) é implementado em um processo interno no servidor COM chamado ScrObj.dll. Este artigo explora somente os recursos de manipulação dos arquivos no modelo de objeto FSO.

 

Criar um FileSystemObject.

 

Antes de manipular arquivos de texto, crie o FSO do seguinte modo:

 

Código VBScript

 

 

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Código JScript

 

 

CODEvar objFSO;
objFSO = new ActiveXObject("Scripting.FileSystemObject");

 

Como criar, abrir e excluir arquivos de texto

 

O FSO expõe o método CreateTextFile que permite que um arquivo de texto vazio seja criado. Ele também expõe os métodos OpenTextFile e DeleteFile que permitem abrir ou excluir, respectivamente, um arquivo existente. Alternativamente, é possível usar o objeto File para executar cada uma dessas três operações. Para obter uma instância do objeto File, invoque o método GetFile do FSO. Contudo, este artigo demonstra somente os métodos diretos no FSO. Consulte a seção "Referências" para obter informações adicionais sobre as técnicas do objeto File.

 

O método OpenTextFile permite que os arquivos sejam abertos para leitura, gravação ou acréscimo de informações textuais.

 

Código VBScript

 

Dim objFSO, objCreatedFile, objOpenedFile
Const ForReading = 1, ForWriting = 2, ForAppending = 8

'Create the FSO.
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objCreatedFile = objFSO.CreateTextFile("c:\HowToDemoFile.txt", True)
Set objOpenedFile = objFSO.OpenTextFile("c:\HowToDemoFile2.txt", ForWriting, True)

'Use objCreatedFile and objOpenedFile to manipulate the corresponding files.
objCreatedFile.Close
objOpenedFile.Close

'Delete the files.
objFSO.DeleteFile "c:\HowToDemoFile.txt"
objFSO.DeleteFile "c:\HowToDemoFile2.txt"

Código JScript

 

var objFSO, objCreatedFile, objOpenedFile;
var ForReading = 1, ForWriting = 2, ForAppending = 8;

// Create the FSO.
objFSO = new ActiveXObject("Scripting.FileSystemObject");

objCreatedFile = objFSO.CreateTextFile("c:\\HowToDemoFile.txt", true);
objOpenedFile = objFSO.OpenTextFile("c:\\HowToDemoFile2.txt", ForWriting, true);

// Use objCreatedFile and objOpenedFile to manipulate the corresponding files.
objCreatedFile.Close();
objOpenedFile.Close();

// Delete the files.
objFSO.DeleteFile("c:\\HowToDemoFile.txt");
objFSO.DeleteFile("c:\\HowToDemoFile2.txt");

Como gravar e ler a partir de um arquivo de texto

 

Os métodos CreateTextFile ou OpenTextFile do FSO retornam uma instância do objeto TextStream, que expõe métodos para gravar ou ler arquivos de texto.

 

Tanto o método Write como o método WriteLine adicionam texto a um arquivo aberto, mas o WriteLine também acrescenta um caractere de nova linha. O método WriteBlankLines grava um ou mais linhas em branco em um arquivo aberto com base no parâmetro especificado.

 

O método Read lê o número especificado de caracteres a partir da posição atual no arquivo aberto. O método ReadLine lê uma linha inteira (até, mas excluindo, o caracter de nova linha), enquanto o método ReadAll lê todo o conteúdo do arquivo aberto. Todos esses três métodos armazenam o texto resultante em uma seqüência que pode ser manipulada facilmente com várias operações de manipulação de seqüência.

 

O seguinte código demonstra esses métodos:

 

Código VBScript

 

Dim objFSO, objTextFile
Dim sRead, sReadLine, sReadAll
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\HowToDemoFile.txt", True)


objTextFile.WriteLine("This line is written using WriteLine().")


objTextFile.Write ("This line is written using Write().")


objTextFile.WriteBlankLines(3)

objTextFile.Close


Set objTextFile = objFSO.OpenTextFile("c:\HowToDemoFile.txt", ForReading)


sReadLine = objTextFile.ReadLine
sRead = objTextFile.Read(4)
sReadAll = objTextFile.ReadAll

objTextFile.Close

 

Código JScript

 

 

var objFSO, objTextFile;
var sRead, sReadLine, sReadAll;
var ForReading = 1, ForWriting = 2, ForAppending = 8;

objFSO = new ActiveXObject("Scripting.FileSystemObject");
objTextFile =objFSO.CreateTextFile("c:\\HowToDemoFile.txt", true);

objTextFile.WriteLine("This line is written using WriteLine().");

objTextFile.WriteBlankLines(3);

objTextFile.Write ("This line is written using Write().");
objTextFile.Close();

objTextFile = objFSO.OpenTextFile("c:\\HowToDemoFile.txt", ForReading);

sReadLine = objTextFile.ReadLine();
sRead = objTextFile.Read(4);
sReadAll = objTextFile.ReadAll();

objTextFile.Close();

Como mover e copiar arquivos de texto

 

O FSO expõe os métodos MoveFile e CopyFile, que permitem que os arquivos sejam movidos e copiados, respectivamente. Alternativamente, é possível usar o objeto File para executar cada uma dessas duas operações. Para obter uma instância do objeto File, invoque o método GetFile do FSO. Contudo, este artigo demonstra somente os métodos diretos no FSO. Consulte a seção "Referências" para obter informações adicionais sobre as técnicas do objeto File.

 

O seguinte modelo de código demonstra esses métodos:

 

Código VBScript

 

Dim objFSO

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.MoveFile "c:\HowToDemoFile.txt", "c:\Temp\"
objFSO.CopyFile "c:\Temp\HowToDemoFile.txt", "c:\"

Código JScript

 

 

var objFSO;
objFSO = new ActiveXObject("Scripting.FileSystemObject");

objFSO.MoveFile("c:\\HowToDemoFile.txt", "c:\\Temp\\");
objFSO.CopyFile("c:\\Temp\\HowToDemoFile.txt", "c:\\");

 

 

Solução de problemas

 

• Mensagem de erro ao criar o Scripting.FileSystemObject:

 

Esse problema ocorre mais provavelmente devido a um dos seguintes cenários:

 

• A ScrObj.dll não foi instalada no computador implantado.

• A ScrObj.dll foi excluída por acidente.

• O registro da ScrObj.dll foi desfeito acidentalmente no registro COM.

 

Como a ScrObj.dll reside em uma pasta em <Diretório de Instalação do Windows>\System32, ela é parte das DLLs (dynamic-link libraries) do sistema operacional. Por isso, não pode ser excluída dos computadores com base em Windows 2000 sem causar medidas extremas que possam obstruir seriamente o sistema.

 

• Mensagens de erro ao executar operações de manipulação de arquivos:

 

Ao formatar as unidades usando o sistema de arquivos NTFS, os usuários no grupo Administrador devem possuir controle sobre as permissões de segurança para todas as unidades, pastas e arquivos. Especialmente em servidores da Web, os Administradores devem reforçar as fortes permissões de segurança para evitar o acesso ilegal aos arquivos e informações. Ao desenvolver e gravar um aplicativo ASP que usa as técnicas de manipulação supracitadas, devem ser dadas considerações especiais às permissões de segurança para o arquivo de sistema em computadores implantados para evitar erros relacionados à permissões de segurança insuficientes