طلب كود للبحث عن ملف في الجهاز وحذفه كلما وجد

[gamalin2]

الاخوة الافاضل

ابحث عن كود يقوم بالبحث عن ملف معين في جهاز الكمبيوتر وكلما وجده قام بحذفه لان توجد منه نسخ عديدة

وفي حال لم يجده او ينتهي من الحذف يتوقف

هل هذا ممكن

 

 

 

 

 

 

[أبو عبد النور]

السلام عليكم،

ما هي نسخة الاوفيس لديك ؟

[gamalin2]

12 ساعات مضت, أبو عبد النور said:

السلام عليكم،

ما هي نسخة الاوفيس لديك ؟

2013

وعلى جهاز اخر 2007

[أبو عبد النور]

السلام عليكم،

 

جرب المرفق :

CC.rar

[gamalin2]

ممكن نشرح لي اشغله ازاي وهل ده انا مطلوب مني اعرف مسارات الملفات المطلوب حذفها والا هو هيبحث عنها 

رجاء الافادة

استاذي الفاضل اشكرك للاهتمام 

الملف بحث وجاب مسارات الملف الموجودة في الفلدر معه او في مستويات اقل فولدرات فرعية من نفس الفلدر فقط 

اما انا نسخت نسخة من الملف في دريف اخر مثلا  e  و d فلم يجده او يبحث عنه 

وايضا وضعته وحده في الدريف مباشرة بدون فولدرز اعطى خطا وطلب اجراء تعديل على الكود

عذرا رسالة الخطأ

permission denied 

 

[أبو عبد النور]

والله ان كنت تريد البحث في كامل الحاسوب انصحك بالبحث عن بالبرامج المخصصة لذلك.

فيما يخص ملف الاكسل المرفق فانه يبحث فقط في المجلد الموجود فيه والمجلدات التحتية التابعة له.

الخطا permission denied  موجود على اي سطر في الكود ؟

 

 

 

[gamalin2]

 For Each oFile In oSourceFolder.Files

[أبو عبد النور]

كيف هو  الكود عنك هنا :

Sub test()
    FindFilesInFolder ThisWorkbook.Path, "1.txt", True
    Debug.Print ThisWorkbook.Path
End Sub

 

[gamalin2]

الأخوه الأعزاء
أعزكم الله - سؤال تاني لو سمحتم 
هل من الممكن البحث عن شيت محدد داخل الملف وحذفه 
بحيث أنه إذا تم حفظ الملف باسم جديد يتم حذف الشيت إذا تطابق مع البحث ؟ 

 

[ياسر خليل أبو البراء]

Sub Test()
    Dim ws As Worksheets
    
    For Each ws In Worksheets
        If ws.Name = "اسم الشيت المراد حذفه" Then
            Application.DisplayAlerts = False
                ws.Delete
            Application.DisplayAlerts = True
        End If
    Next ws
End Sub