Primer1- Otvaranje fajlova sekvencijalno i pomoću File System Object-a, kao i čitanje podataka iz fajla
Option Explicit
Private Sub Command1_Click()
Dim Tekst As String
Dim Fajl As String
Dim Izlazni As Integer
Fajl = App.Path & "\tekst_fajl.txt"
Tekst = "Napisano pomocu sekvencijalnog upisa:"
Tekst = Tekst & InputBox("Unesite tekst")
Izlazni = FreeFile
If Tekst <> "Napisano pomocu sekvencijalnog upisa:" Then
Open Fajl For Append As Izlazni
MsgBox "Fajl tekst_fajl.txt je otvoren"
Print #Izlazni, Tekst
MsgBox "Uneti tekst: " & Tekst & " je upisan u fajl tekst_fajl.txt "
Close #Izlazni
MsgBox "Fajl tekst_fajl.txt je zatvoren"
End If
End Sub
Private Sub Command2_Click()
Dim Tekst As String
Dim FajlSisObjekat As FileSystemObject
Dim txtfajl As TextStream
Tekst = "Napisano pomocu File System Object-a :"
Tekst = Tekst & InputBox("Unesite tekst")
If Tekst <> "Napisano pomocu File System Object-a :" Then
Set FajlSisObjekat = CreateObject("Scripting.FileSystemObject")
Set txtfajl = FajlSisObjekat.OpenTextFile(App.Path & "\tekst_fajl.txt", ForAppending, True)
MsgBox "Fajl tekst_fajl.txt je otvoren"
txtfajl.WriteLine Tekst
MsgBox "Uneti tekst: " & Tekst & " je upisan u fajl tekst_fajl.txt "
txtfajl.Close
MsgBox "Fajl tekst_fajl.txt je zatvoren"
End If
End Sub
Private Sub Command3_Click()
Dim MyString As String
List1.Clear
Open App.Path & "\tekst_fajl.txt" For Input As FreeFile ' Otvara fajl za citanje podataka
Do While Not EOF(1)
Input #1, MyString ' Podaci su procitani
List1.AddItem MyString 'Podaci su upisani u listu
Loop
Close #1 'Fajl test_fajl.txt je zatvoren"
End Sub