Dosya Yerinde mi?

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

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.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git