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