Dosya Açmak

[Carizmatic]

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.