Criando o FileSystemObject


Autor/fonte: Alexandre Burzum
E-mail/Url: http://www.freecode.com.br/drartigos/artigo.php?cdart=280&id=125
Tags: [ filesystemobject ]



Digg del.icio.us

Nesse artigos iremos falar um pouco sobre FileSystemObject, antes de manipular arquivos de texto, vamos criar um FSO.

Criando o FileSystemObject

Antes de manipular arquivos de texto, crie o FSO da seguinte maneira:

Código VBScript:

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

Código JScript:

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

Como criar, abrir e excluir arquivos de texto

O FSO expõe o método CreateTextFile, que permite criar um arquivo de texto vazio. Ele também expõe os métodos OpenTextFile e DeleteFile, que permitem abrir ou excluir um arquivo existente, respectivamente. Como alternativa, você pode usar o objeto File para executar cada uma dessas três operações. Para obter uma instância do objeto File, chame o método GetFile do FSO. Entretanto, este artigo demonstra apenas os métodos diretos do FSO. Para obter mais informações sobre as técnicas do objeto File, consulte a seção "Referências".

O método OpenTextFile permite abrir arquivos para leitura, gravação ou anexação de informações de texto.

Código VBScript:

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

'Criar o FSO.
Set objFSO = CreateObject("Scripting.FileSystemObject")

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

'Usar objCreatedFile e objOpenedFile para manipular os arquivos correspondentes.
objCreatedFile.Close
objOpenedFile.Close

'Excluir os arquivos.
objFSO.DeleteFile "c:\HowToDemoFile.txt"
objFSO.DeleteFile "c:\HowToDemoFile2.txt"

Código JScript:

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

// Criar o FSO.
objFSO = new ActiveXObject("Scripting.FileSystemObject");

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

// Usar objCreatedFile e objOpenedFile para manipular os arquivos correspondentes.
objCreatedFile.Close();
objOpenedFile.Close();

// Excluir arquivos.
objFSO.DeleteFile("c:\\HowToDemoFile.txt");
objFSO.DeleteFile("c:\\HowToDemoFile2.txt");

Como gravar e ler 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.

Ambos os métodos Write e WriteLine adicionam texto a um arquivo aberto, mas WriteLine também anexa um caractere de nova linha ao final. O método WriteBlankLines grava uma 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 da posição atual no arquivo aberto. O método ReadLine lê uma linha inteira (até o caractere de nova linha, mas excluindo este), ao passo que o método ReadAll lê o conteúdo inteiro do arquivo aberto. Todos esses três métodos armazenam o texto resultante em uma seqüência de caracteres que você pode manipular facilmente com diversas operações de manipulação de seqüências.

O código a seguir 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)

' Gravar uma linha com um caractere de nova linha.
objTextFile.WriteLine("This line is written using WriteLine().")

' Gravar uma linha.
objTextFile.Write ("This line is written using Write().")

' Gravar três caracteres de nova linha no arquivo.
objTextFile.WriteBlankLines(3)

objTextFile.Close

' Abrir arquivo para leitura.
Set objTextFile = objFSO.OpenTextFile("c:\HowToDemoFile.txt", ForReading)

' Usar métodos diferentes para ler o conteúdo do arquivo.
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);

// Gravar uma linha com um caractere de nova linha.
objTextFile.WriteLine("This line is written using WriteLine().");

// Gravar três caracteres de nova linha no arquivo.
objTextFile.WriteBlankLines(3);

// Gravar uma linha.
objTextFile.Write ("Esta linha é gravada usando Write().");
objTextFile.Close();

// Abrir arquivo para leitura.
objTextFile = objFSO.OpenTextFile("c:\\HowToDemoFile.txt", ForReading);

// Usar métodos diferentes para ler o conteúdo do arquivo.
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 mover e copiar arquivos, respectivamente. Como alternativa, você pode usar o objeto File para executar cada uma dessas duas operações. Para obter uma instância do objeto File, chame o método GetFile do FSO. Entretanto, este artigo demonstra apenas os métodos diretos do FSO. Consulte a seção "Referências" para obter mais informações sobre as técnicas do objeto File.

O exemplo de código a seguir 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:\\");

Solucionando problemas

Mensagens de erro ao criar Scripting.FileSystemObject

Este problema provavelmente ocorre em conseqüência dos seguintes cenários:

  • O scrObj.dll não foi instalado no computador de implantação;
  • ScrObj.dll foi excluído por acidente;
  • O registro de ScrObj.dll foi removido acidentalmente do Registro COM.


Como ScrObj.dll reside na pasta < Diretório de instalação do Windows >\System32, ele faz parte das bibliotecas de vínculo dinâmico (DLLs) do sistema operacional. Assim, em computadores baseados no Windows 2000, ele não pode ser excluído, pelo menos sem recorrer a medidas extremas, muito prejudiciais ao sistema.

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

Se forem formatadas unidades usando o sistema de arquivos NTFS, os usuários do grupo Administrador terão controle sobre permissões de segurança de unidades, pastas e arquivos inteiros. Especialmente em servidores Web, os administradores devem aplicar fortes permissões de segurança para evitar o acesso ilegal a arquivos e informações. Quando você projeta e escreve um aplicativo ASP que usa as técnicas de manipulação de arquivos mencionadas acima, deve dar atenção especial às permissões de segurança para o sistema de arquivos nos computadores de implantação para evitar erros relacionados a permissões de segurança insuficientes.




Enviado por xKuRt em 03/07/2009 às 07:29


Avaliação

Esta publicação ainda não foi avaliada!


Avaliar:


A avaliação de publicações é restrita a membros cadastrados e logados no nosso site.



Comentários

AvatarEnviado por dddweb em 05/05/2010 às 15:40

Muito bom, principalmente os erros que porventura venha a ocorrer, que são um tedio para debugar

--
Programador da Library Asp


Envio de comentário:




  

Sexta, 18 de Abril de 2014




Leitura recomendada

Asterisk na Prática

Top 5 membros

Últimos membros online

Últimos membros cadastrados



Capa do livro
PHP para Iniciantes


Capa do livro
Informática na Educação: Novas Ferramentas Pedagógicas para o Professor na Atualidade


Capa do livro
Oracle Database 11g SQL





Hostnet

IMD