Belirtilen yoldaki dosyanın yerinde olup olmadığını bulan program yapalım.

Oluşturduğumuz forma:

1 adet button ve

1 adet textbox ekliyoruz.

Textbox'ı dosyanın yolunu girmek için kullanacağız.

Butonun içine şu kodları ekliyoruz:

 Dim dosya
        dosya = Dir(textbox1.text)
        If dosya = "" Then
            MsgBox(" Dosya Bulunmuyor!")
        Else
            MsgBox(" Dosya Bulundu!")
        End If

Kolay gelsin.