Dim StrDosyaAdi As String
StrDosyaAdi = Dir$(klasöryolu & "\*.xlsm")
if StrDosyaAdi <> "" then
' xlsm varsa yapılacaklar
else
'yoksa yapılacaklar
end if
yaklaşık olarak yukardakine benzer.
xlsm dosyasının olup olmadığını denetleyen kod