
Uyglamadaki ilgili kodları silip son halini yeniden ekledim.
Sub YedekKlasoru()
On Error GoTo hata
Dim Klasor As String
MkDir CurrentProject.path & "\YEDEK"
MsgBox "Yedek Klasörü Bulunamadığından Tekrar Oluşturulmuştur.", vbInformation
hata: Exit Sub
End Sub