23 Ocak 2012 Pazartesi

Dosya Okuma ve Kaydetme

Posted by Unknown On 06:23 1 comment

Dosya Kaydetme :


Open App.Path & "\Sayfalar\index.BAL" For Binary As #1
Put #1, , "veri"
Close #1

Dosya Okuma :



Dim DataS As String
Open "DN.txt" For Input As #1
While Not EOF(1)
Input #1, DataS
Sayfa = Sayfa & DataS
Wend
Close #1

Categories:

1 yorum:

Yorum Gönder