Kuidas kasutada Visual Basicu FileSystemObject

Kokkuvõte

FileSystemObject pakub hierarhiline struktuur manipuleerida, loe, ja ASCII ja Unicode'i teksti faile luua. See struktuur erineb Visual Basicu faili I/O algse rakendamise hierarhiline struktuur. FileSystemObject ei toeta binaarfaili juurdepääsu, nii ikka puhul peate kasutama algse faili I/O mudel Visual Basicu binaarfaili juurdepääsu.

Lisateave

FileSystemObject võib leida Scrrun.dll. Lisaks FileSystemOject, Scrrun.dll sisaldab nelja muid objekte, mis on saadaval faili ja muid ülesandeid. Need objektid sisaldavad objekti fail, TextStreamObject objekt, kausta objekti ja draivi objekti. Kõik need objektid on atribuudid ja meetodid, mida on täpsemalt kirjeldatud spikrifaile. Scrrun.dll saab paigaldada üks järgmised paketid:

Windows Script Host Windows NT suvand Pack Microsoft Internet teavet Server 3.0 skriptimine 3.1 täiendamist Visual Studio 6.0 Visual Basic 6.0FileSystemObject loodi algselt Visual Basic Scripting Editioni. FileSystemObject ei sisaldu Raamatukogu objekti Visual Basicu või Visual Basic for Applications. FileSystemObject kasutamiseks peate valige Microsoft Scripting käitusaja projekti Viited dialoogiboksis oma projekti. Järgmine näide illustreerib, kuidas rakendada mõningaid FileSystemObject funktsioon. Lisateabe saamiseks vaadake visuaalse põhilised spikrifailide ja Visual Basic Books Online.

Samme, et luua proovi projekti

  1. Alustada uue standardne EXE projekti Visual Basic. Form1 luuakse vaikimisi.

  2. Klõpsake menüüs Project ja valige Microsoft Scripting Runtime. Kui Microsoft Scripting Runtime ei kuvata loendis, Scrrun.dll Sirvi oma süsteemis. Paigaldada üks vahendeid loetletud varem kui vaja.

  3. Neli CommandButton juhtelementide lisamine Form1. CommandButton kontrolli näitama järgmisi funktsioone: 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. Üldine deklaratsioonide sektsiooni Form1 kleepige järgnev kood:

          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äivitage oma projekti. Klõpsake iga CommandButton kontrollida ja jälgida selle tulemused.

Kas vajate veel abi?

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liitu Microsofti Insideri programmis osalejad

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×