ravex
Ultra Member
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:
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:
Kod:
Dim dosya
dosya = Dir(textbox1.text)
If dosya = "" Then
MsgBox(" Dosya Bulunmuyor!")
Else
MsgBox(" Dosya Bulundu!")
End If