Como utilizar FileSystemObject com o Visual Basic

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 186118
Sumário
FileSystemObject fornece uma estrutura não hierárquica para manipular, ler e criar ficheiros de texto ASCII e Unicode avançados. Esta estrutura é muito diferente da estrutura hierárquica da implementação original de E/s de ficheiro no Visual Basic. FileSystemObject não suporta o acesso a ficheiros binários, por isso, tem ainda utilizar o modelo de E/s de ficheiro original no Visual Basic para acesso de ficheiro binário.
Mais Informação
FileSystemObject pode ser encontrado na Scrrun.dll. Para além das FileSystemOject, Scrrun.dll inclui quatro outros objectos disponíveis para E/s de ficheiro e outras tarefas. Estes objectos incluem o objecto de ficheiro, o objecto TextStreamObject, o objecto de pasta e o objecto de unidade. Todos estes objectos têm propriedades e métodos são detalhados nos ficheiros de ajuda.

Pode obter Scrrun.dll instalando um dos seguintes pacotes:
Windows Script Host
Windows NT Option Pack
Microsoft Internet Information Server 3.0
Scripts actualização 3.1
O Visual Studio 6.0
Visual Basic 6.0

FileSystemObject foi originalmente criado para o Visual Basic Scripting Edition. FileSystemObject não está incluído na biblioteca de objectos para o Visual Basic ou Visual Basic for Applications. Para utilizar FileSystemObject, tem de seleccionar o Microsoft Scripting Runtime na caixa de diálogo referências do projecto para o projecto.

O exemplo que se segue ilustra a implementar algumas das funcionalidades FileSystemObject. Para mais informações, consulte os ficheiros de ajuda do Visual Basic e Visual Basic Books Online.

Passos para criar projecto de exemplo

  1. Inicie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
  2. Clique em referências no menu projecto e seleccione a caixa Microsoft Scripting Runtime. Se ao Microsoft Scripting Runtime não aparecer na lista, procure Scrrun.dll no seu sistema. Instale uma das ferramentas listadas anteriormente, se necessário.
  3. Adicione quatro controlos CommandButton ao Form1. Os controlos CommandButton demonstram as seguintes funcionalidades:
       Command1: How to read an existing text file using FileSystemObject             and TextStreamObject.   Command2: How to view file information using FileSystemObject and             the File object.   Command3: How to iterate through folders using FileSystemObject and             the Folder object.   Command4: How to view drive information using FileSystemObject and             the Drive object.					
  4. Cole o código seguinte na secção General Declarations do Form1:
          Option Explicit      Private Sub Command1_Click()        'Declare variables.        Dim fso As New FileSystemObject        Dim ts As TextStream        'Open file.        Set ts = fso.OpenTextFile(Environ("windir") & "\system.ini")        'Loop while not at the end of the file.        Do While Not ts.AtEndOfStream          Debug.Print ts.ReadLine        Loop        'Close the file.        ts.Close      End Sub      Private Sub Command2_Click()         Dim fso As New FileSystemObject         Dim f As File         'Get a reference to the File object.         Set f = fso.GetFile(Environ("windir") & "\system.ini")         MsgBox f.Size 'displays size of file      End Sub      Private Sub Command3_Click()         Dim fso As New FileSystemObject         Dim f As Folder, sf As Folder, path As String         'Initialize path.         path = Environ("windir")         'Get a reference to the Folder object.         Set f = fso.GetFolder(path)         'Iterate through subfolders.         For Each sf In f.SubFolders           Debug.Print sf.Name         Next      End Sub      Private Sub Command4_Click()         Dim fso As New FileSystemObject         Dim mydrive As Drive         Dim path As String         'Initialize path.         path = "C:\"         'Get object.         Set mydrive = fso.GetDrive(path)         'Check for success.         MsgBox mydrive.DriveLetter 'displays "C"      End Sub					
  5. Execute o projecto. Clique em cada controlo CommandButton e observe os resultados.

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 186118 - Última Revisão: 07/15/2004 20:33:28 - Revisão: 2.2

Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0

  • kbmt kbfileio kbhowto KB186118 KbMtpt
Comentários
ERROR: at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)