حذف محتويات أي مجلد بعد تحديد مساره

[abo3aesha_2014]

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

حذف محتويات مجلد.accdb

[محمد أبوعبدالله]

السلام عليكم

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

Kill Me.txt1.Value

او تحديد المسار كالتالي

Kill "C:\My_Files\*.*"

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

تحياتي

[abo3aesha_2014]

13 ساعات مضت, محمد أبوعبدالله said:

السلام عليكم

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

Kill Me.txt1.Value

او تحديد المسار كالتالي

Kill "C:\My_Files\*.*"

حذف محتويات مجلد.rar 18.12 kB · 5 downloads

تحياتي

معذرة فلم أفهم طريقة الحل

وزيادة لإيضاح المطلوب قمت بإضافة زر تحديد المسار

حذف محتويات مجلد.accdb

[kanory]

مشاركة مع استاذي محمد

استخدمنا هذا الكود

Kill (Me.txt1 & "*.*")

تفضل --------->>>>>>

 

حذف محتويات مجلد.accdb

[abo3aesha_2014]

40 دقائق مضت, kanory said:

مشاركة مع استاذي محمد

استخدمنا هذا الكود

Kill (Me.txt1 & "*.*")

تفضل --------->>>>>>

 

حذف محتويات مجلد.accdb 368 kB · 4 downloads

جزاكما الله خيرا

طبقت شرحكما

لكن صارت عندي مشكلة إذا كان المجلد المطلوب حذف محتوياته فارغا

 

[abo3aesha_2014]

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

استخدمت هذا الكود لكن بلا فائدة

حذف محتويات مجلد.accdb

[محمد أبوعبدالله]

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

استخدمت هذا الكود لكن بلا فائدة

استخدمه كالتالي

If Dir(Me.txt1 & "*.*") = "" Then
            MsgBox "مجلد الحفظ فارغ لا يحتوى على أى نسخ !!", 48, "نافذة الرسائل"
        Else

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

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

تحياتي