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[FONT=Courier New][SIZE=2]'Command1 e basıldığında burak.txt dosyası c sürücüsünde varsa "dosya var", yoksa "dosya yok" yazacaktır.[/SIZE][/FONT]
