bir önceki mesajda yazılı olan kodları kullandığınızda sorunsuz çalışmaktadır fakat buna bir de kontrol kodları dahil edilerek kullanmak daha yerinde olacaktır.
çünkü;
tekrar aynı butonu tıklama durumu veya bu kodları çalıştırma işlemi söz konusu olursa,herhangi bir hata iletisi vermemesini sağlamak gerekmektedir.
bunun için de;
Kod:
If Len(CurrentProject.Path & "\" & "a" & "\" & "b" & "\" & "*.*") > 0 Then
MsgBox ("Dosya ve klasörler silinmiştir."), vbInformation, "DOSYA VE KLASÖR SİLİNDİ UYARISI"
Exit Sub
Else
Kill CurrentProject.Path & "\" & "a" & "\" & "b" & "\" & "*.*"
RmDir CurrentProject.Path & "\" & "a" & "\" & "b"
RmDir CurrentProject.Path & "\" & "a"
End If
bilginize...iyi çalışmalar,saygılar.