วิธีการใช้ FileSystemObject ด้วย Visual Basic


สรุป


FileSystemObject ให้โครงสร้างลำดับชั้นที่ไม่มีการจัดการ อ่าน และสร้างแฟ้มข้อความ ASCII และ Unicode โครงสร้างนี้มีความแตกต่างอย่างมากจากโครงสร้างแบบลำดับชั้นของการปฏิบัติการเดิมของแฟ้ม I/O ใน Visual Basic FileSystemObject สนับสนุนการเข้าถึงแฟ้มไบนารี เพื่อให้คุณยังคงต้องใช้รูปแบบแฟ้ม I/O เดิมใน Visual Basic สำหรับการเข้าถึงแฟ้มไบนารี

ข้อมูลเพิ่มเติม


สามารถพบ FileSystemObject ใน Scrrun.dll นอกเหนือจาก FileSystemOject, Scrrun.dll รวมถึงสี่วัตถุอื่น ๆ พร้อมใช้งานสำหรับแฟ้ม I/O และงานอื่น ๆ วัตถุเหล่านี้รวมออบเจ็กต์ไฟล์นี้ วัตถุ TextStreamObject วัตถุโฟลเดอร์ และวัตถุไดรฟ์ วัตถุเหล่านี้ทั้งหมดมีคุณสมบัติและเมธอดที่มีรายละเอียดอยู่ในแฟ้มวิธีใช้ คุณสามารถขอรับ Scrrun.dll ด้วยการติดตั้งแพคเกจดังต่อไปนี้อย่างใดอย่างหนึ่ง:
การปรับรุ่น Windows สคริปต์โฮสต์ Windows NT อ็อพชัน Pack Microsoft Internet ข้อมูล Server 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. เริ่มต้นโครงการ Standard EXE ใหม่ใน Visual Basic Form1 จะถูกสร้างขึ้น โดยค่าเริ่มต้น
  2. คลิกการอ้างอิงบนเมนูโครงการ และเลือกรันไทม์การเขียนสคริปต์ของ Microsoft ถ้าขณะทำการเขียนสคริปต์ของ Microsoft ไม่ปรากฏในรายการ เรียกดู Scrrun.dll บนระบบของคุณ ติดตั้งเครื่องมือแสดงรายการไว้ก่อนหน้าถ้าจำเป็นอย่างใดอย่างหนึ่ง
  3. เพิ่มตัวควบคุม CommandButton สี่ไปที่ Form1 ตัวควบคุม 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. วางรหัสต่อไปนี้ในส่วน Declarations ทั่วไปของ 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 และสังเกตผลลัพธ์