Sequential ( Sırasal Erişimli ) Dosya

Dosya_No = FreeFile

Open “Rehber.Dat” For Output As Dosya_No ‘ Kayıt için dosya açmak. Dosya mevcutsa silip yenisi oluşturur
Print #Dosya_No, Text1.Text ‘ Kayıt girişi
Print #Dosya_No, Text2.Text
Print #Dosya_No, Text3.Text
Print #Dosya_No, Text4.Text

Close #Dosya_No ‘ Dosya kapat

Open “Rehber.Dat” For Input As Dosya_No ‘ Kayıtları okumak için dosya açmak

Text1.Text = Input$(LOF(Dosya_No), Dosya_No)

Close #Dosya_No

Open #Rehber.Dat” For Append As Dosya_No ‘ Var olan dosyayı kayıt eklemek için açmak
Print #Dosya_No, Text1.Text
Print #Dosya_No, Text2.Text

Close #Dosya_No ‘ Dosyayı kapatmak