كود لحذف محتويات مجلد

[abo3aesha_2014]

بحثت في النتدي ووجدت هذه المشاركة

 

لكن لم أجد فيها ما أريد

المطلوب هو كود يحذف محتويات مجلد دون حذف المجلد نفسه

مثلا كل فترة نضغط على زر لتفريغ محتويات ملف به النسخ الاحتياطية للبرنامج

[AlwaZeeR]

Kill "D:\FoldrName\*.*"

[abo3aesha_2014]

56 دقائق مضت, alwazeer said:

Kill "D:\FoldrName\*.*"

تمام 

لكن هناك مشكلة تظهر في حالة فراغ المجلد من الملفات

تفريغ محتويات مجلد.rar

[Shivan Rekany]

11 ساعات مضت, abo3aesha_2014 said:

لكن هناك مشكلة تظهر في حالة فراغ المجلد من الملفات

استأذن من استاذنا السيد الوزير البرمجة 

اتفضل اليك الكود 

اذا ليس هناك اي ملف في الفولدر سيعطيك الرسالة بان ليس هناك اي نسخة احتياطية لكي نحذفة 

واذا هناك ملف فيه سيعطيك الرسالة هل انت متأكد واذا نعم سيحذف الجميع

Private Sub أمر0_Click()
   If Dir("D:\FoldrName\" & "*.*") = "" Then
            MsgBox "ليس هناك اي نسخة احتياطية لكي نحذفه"
        Else
            If MsgBox("هل تريد حذف جميع النسخ الإحتياطية ؟", vbYesNo, "نافذة الرسائل") = vbYes Then
                    Kill "D:\FoldrName\*.*"
                    MsgBox "لقد تم حذف جميع النسخ الإحتياطية بنجاح!!!!", vbOKOnly, "نافذة الرسائل"
            End If
    End If
End Sub

اليك المرفق

 

تفريغ محتويات مجلد.rar