Dizinde dosya var mı denetlesin...

[aliakgul]

Selam,
Sorunum olan konuyu aslında formda daha önce görmüştüm.Ancak tüm arama çabalarıma rağmen bulamadığım için yeni konu açma durumunda kaldım.

Düğmeye tıklandığında
"C:\Program Files\iMacros\iMacros.exe"
denetlenecek.Dizinde dosya varsa devam edilecek, yoksa
if MsgBox("Yükleme programını kurmadınız...", vbCritical, "eksik_kurulum...") = vbOK Then Exit Sub
mesajı ile görev sonlandırılacak.
Teşekkür eder,iyi çalışmalar dilerim...

 

[Korhan Ayhan]

Selamlar,

İstediğiniz sorguyu DIR komutunu kullanarak yapabilirsiniz.

Option Explicit
 
Sub PROGRAM_KONTROL()
    If Dir("C:\Program Files\iMacros\iMacros.exe") = "" Then
        MsgBox "Yükleme programı kurulmamış !", vbCritical
        Exit Sub
    Else
        'Çalışmasını istediğiniz kodlar...
    End If
End Sub

 

[aliakgul]

Korhan Bey,
Teşekkür ederim, sorunsuz çalıştı.Elinize sağlık...
Bir soru:
Option Explicit satırının işlevi nedir? Birçok çalışmada gördüğüm bu satırı bir çalışmada iptal ettiğimde değişen birşey olmadığını görmüştüm.Açıklarsanız sevinirim...

 

[Korhan Ayhan]

Selamlar,

Bu komut DIM ile başlayan tanımlamaları yapmayı zorunlu kılar.

Aşağıdaki kodu boş bir modüle ekleyip deneyin. Kodu bu haliyle çalıştırdığınızda hata mesajı alacaksınız. Sonra Dim ile başlayan satırı başındaki tek tırnak işaretini silerek aktif hale getirip kodu yeniden çalıştırın bu sefer hata mesajı almayacaksınız.

Option Explicit
 
Sub TEST()
    'Dim X As BYTE
    
    X = 100
    MsgBox X
End Sub

 

[aliakgul]

Korhan bey, teşekkür ederim...