أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





حذف ملفات الاكسيل من درايف محدد

السلام عليكم هل من الممكن حذف كل ملفات الاكسيل ف درايف محدد او بالتحديد امتداد معين من ملفات الاكسيل الكود المرفق يحذف ..


موضوع مغلق


19-11-2021 09:23 مساء
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 

السلام عليكم 
هل من الممكن حذف كل ملفات الاكسيل ف درايف محدد
او بالتحديد امتداد معين من ملفات الاكسيل
الكود المرفق يحذف الملفات من فولدر محدد فقط
Sub Kill1 ()
Dim aFile As String
aFile = "C:TestTestDownloads*.*"
If Len(Dir$(aFile)) > 0 Then
    Kill aFile
End If


أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي العزيز سعد
جرب الكود التالي لعله يفي بالغرض إن شاء الله
Sub Delete_Files_With_Specific_Extensions()
    Dim e, sPath As String, aFile As String
    sPath = ThisWorkbook.Path & "\TestFolder\*."
    For Each e In Array("xlsm", "xlsx")
        aFile = sPath & e
        If Len(Dir$(aFile)) > 0 Then Kill aFile
    Next e
End Sub
عرض الإجابة




20-11-2021 05:24 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif حذف ملفات الاكسيل من درايف محدد
وعليكم السلام أخي العزيز سعد
جرب الكود التالي لعله يفي بالغرض إن شاء الله
Sub Delete_Files_With_Specific_Extensions()
    Dim e, sPath As String, aFile As String
    sPath = ThisWorkbook.Path & "\TestFolder\*."
    For Each e In Array("xlsm", "xlsx")
        aFile = sPath & e
        If Len(Dir$(aFile)) > 0 Then Kill aFile
    Next e
End Sub

20-11-2021 08:57 صباحا
مشاهدة مشاركة منفردة [2]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif حذف ملفات الاكسيل من درايف محدد
اخى ياسر
اشكرك كل الشكر
لم اجرب الكود بعد
 

20-11-2021 09:40 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif حذف ملفات الاكسيل من درايف محدد
بارك الله فيك أخي العزيز سعد .. جرب الكود وأخبرنا بعد التجربة



الكلمات الدلالية
ملفات ، الاكسيل ، درايف ، محدد ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:46 مساء