Como utilizar FileSystemObject com o Visual Basic

Traduções de Artigos Traduções de Artigos
Artigo: 186118 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

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.

Propriedades

Artigo: 186118 - Última revisão: 15 de julho de 2004 - Revisão: 2.2
A informação contida neste artigo aplica-se a:
  • 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
Palavras-chave: 
kbmt kbfileio kbhowto KB186118 KbMtpt
Tradução automática
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

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com