Використання FileSystemObject з Visual Basic


Загальні відомості


FileSystemObject, забезпечує-ієрархічну структуру керувати, читання та створити ASCII та Юнікод текстові файли. Ця структура дуже відрізняється від ієрархічну структуру виконання вихідного файлу вводу-виводу, у Visual Basic. FileSystemObject не підтримує доступ на двійковий файл, потрібно використовувати модель вихідного файлу вводу-виводу у Visual Basic для доступу до двійкових файлів.

Додаткові відомості


FileSystemObject можна знайти в Scrrun.dll. Окрім FileSystemOject Scrrun.dll включає в себе чотири інших об'єктів, доступних для файлами, так і виконання інших завдань. Ці об'єкти передбачає, що файл об'єкта, TextStreamObject об'єкта, об'єкт папки та об'єкт диска. Усі ці об'єкти мають, властивості та методи, які у файли довідки. Scrrun.dll можна отримати, інсталювавши одного з таких пакетів:
Оновлення для Windows сценарію хоста Windows NT параметр оновлень Microsoft Internet відомості про сервер 3.0 сценарії 3.1 Visual Studio 6.0 Visual Basic 6.0
FileSystemObject була створена випуск сценарії Visual Basic. FileSystemObject не включено до бібліотеки об'єктів Visual Basic або Visual Basic для застосунків. За допомогою FileSystemObject, необхідно вибрати виконання сценаріїв на Microsoft у діалоговому вікні посилання на проект проекту. Наступний приклад ілюструє реалізацію, деякі функції FileSystemObject. Щоб отримати додаткові відомості див. файли довідки на Visual Basic і Visual Basic Books Online.

Кроки для створення проекту

  1. У Visual Basic, запустіть проект Standard EXE. Форма Form1 створюється за промовчанням.
  2. Клацніть посилання на проект та вибрати виконання сценаріїв Microsoft. Якщо виконання сценаріїв Microsoft не відображається у списку, перегляньте Scrrun.dll в системі. Встановити засоби, наведені вище, якщо необхідно.
  3. Додати Form1 чотири CommandButton елементів керування. Елементи керування CommandButton демонструють, такі функції:
       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. Вставте наступний код, в розділі "Загальні оголошень" 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. Запустити проект. Виберіть кожен елемент керування для CommandButton та спостерігати результати.