Dosya İşlemleri Örnekleri

Option Compare Database

'Private Sub Komut4_Click()
'Output kullanılınca içerde var olan değerler silinir.
'Append kullanılınca içerde var olan değerler silinmez üzerine ekleme yapılır.
'Open "d:\rehber.txt" For Append As #1
'Metin0.SetFocus
'a = Metin0.Text
'Metin2.SetFocus
'b = Metin2.Text
'rehber = a & " " & b
'Write #1, rehber
'Close #1
'End Sub
' -----------------------------2.Yöntem
Private Sub Komut4_Click()

Dim ad, meslek As String
Open "d:\rehber2.txt" For Append As #1
ad = Metin0
meslek = Metin2
Write #1, ad, meslek
Close #1
Metin0 = ""
Metin2 = ""
End Sub
'___________________________________________________________________________________________________


Private Sub Komut7_Click()
Dim ad, meslek As String
Liste5.RowSourceType = "value list"
Liste5.RowSource = ""
Open "d:\rehber2.txt" For Input As #1
Do While Not EOF(1)
Input #1, ad, meslek
Liste5.AddItem (ad)
Liste5.AddItem (meslek)
Loop
Close #1
End Sub

Private Sub Komut8_Click()
Dim ad, meslek As String
Open "d:\rehber2.txt" For Input As #1
Do While Not EOF(1)
Input #1, ad, meslek
metin = metin & ad & " " & meslek & Chr(13)
Loop
Close #1
MsgBox metin
End Sub