Hur du använder FileSystemObject med Visual Basic


Sammanfattning


FileSystemObject finns en icke-hierarkisk struktur kan ändra, läsa och skapa filer med ASCII- och Unicode-text. Den här strukturen skiljer sig mycket från den hierarkiska strukturen för det ursprungliga genomförandet av fil I/O i Visual Basic. FileSystemObject stöder inte binär fil, så du måste fortfarande använda den ursprungliga filen i/o-modellen i Visual Basic för binär fil.

Mer information


FileSystemObject finns i Scrrun.dll. Förutom FileSystemOject innehåller Scrrun.dll fyra objekt som finns tillgängliga för i/o-fil och andra aktiviteter. Dessa objekt inkluderar filobjektet, TextStreamObject objekt, objekt i mappen och enhetsobjektet. Alla dessa objekt har egenskaper och metoder som beskrivs i hjälpfilerna. Du kan hämta Scrrun.dll genom att installera någon av följande paket:
Windows Script Host Windows NT alternativet Pack Microsoft IIS (Internet Information Server) 3.0 Scripting 3.1 uppgradera Visual Studio 6.0 Visual Basic 6.0
FileSystemObject skapades ursprungligen för Visual Basic Scripting Edition. FileSystemObject ingår inte i objektbiblioteket för Visual Basic eller Visual Basic for Applications. Om du vill använda FileSystemObject måste du välja Microsoft Scripting Runtime-projektreferenser i dialogrutan för projektet. I följande exempel visas hur du implementerar vissa funktioner FileSystemObject. För mer information se hjälpfilerna för Visual Basic och Visual Basic Books Online.

Skapa exempelprojektet

  1. Skapa ett nytt Standard-EXE-projekt i Visual Basic. Form1 skapas som standard.
  2. Klicka på referenser på Projekt-menyn och markera Microsoft Scripting Runtime. Om Microsoft Scripting Runtime inte visas i listan kan du leta efter Scrrun.dll på datorn. Installera en av de verktyg som visats tidigare, om det behövs.
  3. Lägg till kontroller för fyra CommandButton i Form1. CommandButton-kontroller visar följande funktioner:
       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. Klistra in följande kod i det det allmänna deklarationsavsnittet i 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. Kör projektet. Klicka på varje CommandButton-kontroll och studera resultaten.