Dosya Yerinde mi?

[ßyMesMes]

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.

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu​

 

[Karcemackers]

Paylasım icin tesekkurler.