• Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha fazla bilgi edin.

Dosya Açmak

Konuyu Okuyan Kişiler (0)

Carizmatic

New member
Katılım
6 Ağu 2012
Mesajlar
1,672
Beğeniler
0
Konum
Webmaster.TC
#1
Kod:
Option Explicit
            
            Function DosyaAc(dosyaadi$) As String
            Dim dosya_no As Integer
            dosya_no = FreeFile
            Open dosyaadi$ For Input As #dosya_no
            DosyaAc = Input$(LOF(dosya_no), dosya_no)
            Close #dosya_no
            End Function
            
            Private Sub Command1_Click()
            Dim Dosya
            On Error Resume Next
            Dosya = Dir("c:\burak.txt")
            If Dosya = "" Then
            Text1.Text = "Dosya Yok"
            Else
            Text1.Text = "Dosya Var"
            End If
            End Sub
'Command1 e basıldığında burak.txt dosyası c sürücüsünde varsa "dosya var", yoksa "dosya yok" yazacaktır.