Dosya Yerinde mi?

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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.