logo

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



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





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
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك يا عربي ..
بس بلاش الأكواد الحساسة دي ..لحد يغلط ويعملها ويفرمت الملفات اللي عنده عشان يجرب الكود :)




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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طباعة ملفات pdf صلاح الصغير
3 63 صلاح الصغير
اريد كود لطباعه جميع ملفات البى دى اف مره واحده EM_ACC
3 177 Excelawy
ايقاف فيرس Ransomware واستعاداة الملفات Yasser Elaraby
6 2314 star
تجميع بيانات من عدة ملفات بليغ البتول
1 153 بليغ البتول
أكبر تجميعية لملفات PSD مفتوحة المصدر جاهزة للتعديل إهداء لأعضاء وزوار المنتدي الكرام عوض السوداني
0 81 عوض السوداني

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









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

الساعة الآن 12:28 PM