IF(A73X) {TRUE;}

ໃນບົດຮຽນນີ້ ເຮົາຈະຮຽນກ່ຽວກັບ ການສ້າງໄຟລ ແລະ ບັນທຶກໄຟລ ລົງໄປໃນ ຮາດດິດ ແລ້ວ ອ່ານໄຟລ ໃນໂປຣແກຣມ ທີ່ສ້າງຈາກ Visual Basic 6
1. ການສ້າງໄຟລ
ໂຄ້ດ:

Open "fileName" For Output  As #fileNumber

ຕົວຢ່າງ

Open "c:\My Documents\sample.txt" For Output As #1

ຕົວຢ່າງ ການສ້າງໄຟລ

Private Sub create_Click() 
Dim intMsg As String
Dim StudentName	As String
Open "c:\My Documents\sample.txt" For Output As #1 
intMsg = MsgBox("File sample.txt opened")
StudentName = InputBox("Enter the student Name")
Print #1, StudentName 
intMsg = MsgBox("Writing a" & StudentName & "to sample.txt")
Close #1 
intMsg = MsgBox("File sample.txt closed")
End Sub

2. ການອ່ານໄຟລ
ຕົວຢ່າງ:

Private Sub Reading_Click()
Dim variable1 As String
Open "c:\My Documents\sample.txt"
For Input As  #1 
Input  #1, variable1
Text1.Text = variable1
Close  #1 
End Sub

ໂປຣແກຣມນີ້ ແມ່ນເປີດ sample.txt ແລະ ສະແດງຂໍ້ມູນຜ່ານ Text1