If Dir("Me.txt1" & "*.*") = "" Then
MsgBox "مجلد الحفظ فارغ لايحتوى على أى نسخ قديمة !!", 48, "نافذة الرسائل"
Else
If MsgBox("هل تريد حذف النسخة الإحتياطية السابقة ؟", vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbYesNo, "تحذير") = vbYes Then
Kill (Me.txt1 & "*.*")
MsgBox "لقد تم حذف جميع النسخ السابقة بنجاح", 48, "نافذة الرسائل"
End If
استخدمت هذا الكود لكن بلا فائدة
حذف محتويات مجلد.accdb