Kodlarda sorun varsa End-Debug yerine msgbox la mesaj vermek

[baknediycem]

sil makrosu çalıştıgında C\MUHASEBE'de not.zip yoksa VBA runtime error, End Debug Help mesaj penceresi yerine "dosya bulunamadı" yazan bir msgbox nasıl yapılır?


Sub Sil()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.DeleteFile "C:\MUHASEBE\not.zip", True
End Sub

 

[hamitcan]

Sub Sil()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.fileExists("C:\MUHASEBE\not.zip")

If a = True Then
    ds.DeleteFile "C:\MUHASEBE\not.zip", True
Else
    MsgBox "Böyle bir dosya yok": Exit Sub
End If
End Sub

 

[baknediycem]

Çok teşekkür ederim Sn. hamitcan, degerli vaktinizi ayırdıgınız için.