FileSystemObject gebruiken met Visual Basic


Samenvatting


FileSystemObject biedt een hiërarchisch te manipuleren, lezen en ASCII- en Unicode-tekstbestanden maken. Deze structuur is heel anders dan de hiërarchische structuur van de oorspronkelijke implementatie van het bestand I/O in Visual Basic. FileSystemObject biedt geen ondersteuning voor toegang tot het binaire bestand, dus u nog steeds het oorspronkelijke bestand i/o-model in Visual Basic voor toegang tot het binaire bestand gebruiken moet.

Meer informatie


FileSystemObject kunt in Scrrun.dll vinden. Naast FileSystemOject bevat Scrrun.dll vier andere objecten beschikbaar voor i/o-bestand en andere taken. Deze objecten omvatten het File-object, het object TextStream, object, het Folder-object en het object van het station. Al deze objecten hebben eigenschappen en methoden die worden beschreven in de Help-bestanden. Scrrun.dll kunt u verkrijgen door een van de volgende pakketten te installeren:
Windows Script Host Windows NT optie Pack Microsoft Internet informatie Server 3.0 Scripting 3.1 upgrade Visual Studio 6.0 Visual Basic 6.0
FileSystemObject is oorspronkelijk gemaakt voor de Visual Basic Scripting Edition. FileSystemObject is niet opgenomen in de objectbibliotheek voor Visual Basic of Visual Basic for Applications. FileSystemObject wordt gebruikt, moet u de Microsoft Scripting Runtime in het dialoogvenster projectverwijzingen voor uw project. In het volgende voorbeeld wordt geïllustreerd hoe sommige FileSystemObject functies implementeren. Zie de Help van Visual Basic-bestanden en de Visual Basic Books Online voor meer informatie.

Stappen voor het voorbeeldproject te maken

  1. Maak een nieuw standaard-EXE-project in Visual Basic. Form1 wordt standaard gemaakt.
  2. Klik op verwijzingen in het menu Project en selecteer de Microsoft Scripting Runtime. Als de Microsoft Scripting Runtime niet in de lijst wordt weergegeven, kunt u bladeren naar Scrrun.dll op uw systeem. Installeer een van de hulpprogramma's die eerder is vermeld, indien nodig.
  3. Voeg vier CommandButton-besturingselementen toe aan Form1. De besturingselementen CommandButton aantonen dat de volgende functionaliteit:
       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. Plak de volgende code in de sectie algemene declaraties van 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. Het project wordt uitgevoerd. Klik op elk besturingselement CommandButton en bekijk het resultaat.