การอ่านและเขียนไฟล์โดยใช้ TextStream

อ่านและเขียนไฟล์ ใครว่ายาก
1. สร้าง Project ใหม่
2. คลิก Project->References
3. เลือกถูกที่ Microsoft Scripting Runtime แล้วคลิก OK
4. สร้าง Text Box ใส่ลงในฟอร์ม และปุ่มอีก 2 ปุ่ม
5. เปลี่ยน Properties ของ TextBox ดังนี้
Multiline=True
ScrollBars=3 - Both
6. เปลี่ยน Caption ให้ปุ่มแลกเป็น Load และปุ่มที่สองเป็น Save

7. ใส่โค้ดลงไปดังนี้

Dim mfSysObj As New Scripting.FileSystemObject
Dim TextStream As TextStream
Private Sub Command1_Click()
Set TextStream = mfSysObj.OpenTextFile("C:\autoexec.bat", ForReading, False)
Text1.Text = TextStream.ReadAll
TextStream.Close
'คุณสามารถเปลี่ยน C:\autoexec.bat เป็น ชื่อไฟล์ของคุณได้
End Sub
Private Sub Command2_Click()
Set TextStream = mfSysObj.OpenTextFile("C:\autoexec.bat", ForAppending, True)
TextStream.Write Text1.Text
TextStream.Close
'คุณสามารถเปลี่ยน C:\autoexec.bat เป็น ชื่อไฟล์ของคุณได้
End Sub

8. ลอง Run Project แล้วลองคลิกปุ่ม Load ดูสิครับแล้วแก้ไฟล์แล้วคลิกปุ่ม Save ดูครับ