Soru Klasör içinde dosya varsa, yoksa hk.

[balanar]

Merhaba,

Klasor = ThisWorkbook.Path & "\"
Dosya_Adi = Worksheets("yaz").Range("d2").Value

d2'den tc nosu alıyor. Şimdi bu tcnosuna ait tcno.xlsm varsa Msgbox("tamam") yoksa msgbox("iptal") çıkarmak istiyorum

buna uygun bir if sorgusu nasıl yazabiliriz?

 

[mancubus]

If CreateObject("Scripting.FileSystemObject").FileExists(klasor & Dosya_Adi & ".xlsm") Then
    MsgBox "Tamam"
Else
    MsgBox "İptal"
End If

 

[balanar]

@mancubus çok teşekkür ederim hocam...

 

[mancubus]

Rica ederim. Kolay gelsin.