logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة Yasser Elaraby نظام ادارة شؤون الموظفين اعداد ياسر العربي اكسيل اسئله واجابات



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





29-08-2017 04:47 مساءً
بسم الله الرحمن الرحيم
اقدم لكم اليوم كود لمسح ملفات اكسيل او ملفات اخرى حسب رغبتك داخل مسار تقوم بتحديده
حسب شرط التاريخ اي اذا كان التاريخ اكبر من التاريخ المذكور يقوم بمسح الملفات داخل المسار المحدد
الكود قد يؤدى استعماله بطريقة غير سليمة لحذف اي ملفات في المسار المحدد فيرجى الانتباه في تحديد المسار والامتدادات التي تود مسحها
650x300xfinger-pressing-delete-button.jpg.pagespeed.gp+jp+jw+pj+js+rj+rp+rw+ri+cp+md.ic.zIJZw9QZeB

الكود المستخدم في حدث فتح المصنف
CODE

Private Sub Workbook_Open()
    Dim FSO As Object
    Dim MyPath As String
    If Date > DateValue("7/3/2017") Then
        Set FSO = CreateObject("scripting.filesystemobject")
        MyPath = "D:Yasser"  '<<مسارالملفات والفولدرات المرادمسحهم
        If Right(MyPath, 1) = "" Then
            MyPath = Left(MyPath, Len(MyPath) - 1)
        End If
        If FSO.FolderExists(MyPath) = False Then
            'MsgBox MyPath & " doesn't exist"
            Exit Sub
        End If
        On Error Resume Next
        FSO.deletefile MyPath & "*.xl*", True    'مسح ملفات الاكسيل اذاكانت تريد مسح جميع الملفات ضع * بدلا من الاكسيل
        ' FSO.deletefolder MyPath & "*.*", True' اذا كنت تريدمسح كل الفولدرات الموجودة داخل المسار المحدد
        On Error GoTo 0
    End If
End Sub




تستطيع مسح كل الملفات داخل المسار باستبدال *.xl ب *.*

attachDEL.rar
تحياتي
 
 
  DEL.rar   تحميل rar مرات التحميل :(28)
الحجم :(14.607) KB




توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif حذف ملفات في مسار محدد بشرط محدد عند فتح ملف اكسيل
  29-08-2017 04:55 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36792
الاعجاب : 201
بارك الله فيك يا عربي ..
بس بلاش الأكواد الحساسة دي ..لحد يغلط ويعملها ويفرمت الملفات اللي عنده عشان يجرب الكود :)




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تجميع بيانات من عدة ملفات بليغ البتول
2 274 صلاح الصغير
07 _ دمج المراسلات باستخدام البايثون (إنشاء العديد من ملفات الورد) YasserKhalil
8 847 karwan
المساعد فى تعديل كود نسخ البيانات من ملفات مغلقة Lotfy
0 51 Lotfy
كود نسخ البيانات من ملفات اكسيل مغلقة Lotfy
0 243 Lotfy
استيراد اسماء ملفات الحاسوب الى الاكسل almosowy85
0 67 almosowy85

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









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

الساعة الآن 09:18 PM