الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده)

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

السلام عليكم ورحمة الله وبركاته

إخواني الكرام ..

أقدم لكم اليوم (الملف القاتل .. Killer File) ..

حلو العنوان وجذاب ، بيفكرني بالحوت القاتل .. Killer Whale

 

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

 

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

في الملف المرفق : الملف القاتل اسمه Killer File ، والملف الضحية اسمه FileToBeKilled

وأترككم الآن بعد فك الضغط مشاهدة حادثة القتل العمد ..

كان معكم مصمم الملف القاتل أبو البراء (وربنا يكفينا شر القتل)

Killer File.rar

[حسام ميلكانا]

اخى الكريم

انت مالكش حل - بجد بجد فنبلة 

رينا يكرمك اخى ياسر على هذة الادوات الجميلة التى تساعد على القتل فى هدوء

[خالد عمرمحمد]

استاذى العزيز انت شخص مميز جدا فى كل شئ نرجوا المزيد من الابداعات 

[أبو إيمان]

يعني لازم نثيرك يا أستاذ ياسر علشان تطلع الحاجات الحلوة دي شكلنا كدا هنستغلك في حاجات كتيرررررررررر جاري تجربة القاتل خلي بالك لو اتمسك القاتل هيكون هيحكم عليه بالقصاص لان القتل عمدا مع سابق الاصرار بس لو اتمسكتوا أنا مقلتش حاجة واوعى تبلغ عني

[أبو إيمان]

تم تجربة الملف وشكرا على الاستجابة السريعة من حضرتك 

جاري توظيفه في كود أخر هيعجبكم إن شاء الله

[Yasser Fathi Albanna]

رائع أخى وحبيبى الفاضل ياسر خليل

لا حرمنا الله من أعمالك القيمة

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

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

مشكور إخواني الكرام على مروركم العطر ..

الأخ حسام ..خلي بالك القنابل ممنوعة في المنتدى ، لأن المنتدى سلمي ، فممكن يمنعوني من المنتدى لو عرفوا إني قنبلة ... مشكور على كلامك الطيب أخي حسام ميلكان

الأخ الجديد المجتهد خالد عمر .. بارك الله فيك ، ونحن سنكون بانتظار ظهور نجمك عما قريب إن شاء الله ...

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

الأخ ياسر فتحي البنا ..مشكور على كلماتك الرقيقة وشعورك الطيب تجاهي

تقبلوا تحياتي

[أبو إيمان]

أستاذنا :

ابداعات واقي ضدد الرصاص دي بتاعت العباقرة إحنا لسة في بداية السلم

[صلاح الصغير]

بارك الله فيك

[مختار حسين محمود]

مش حرام تقتل ملف صغير  كان عملك حاجة ؟!

 

بلاغ فى أبوالبراء الى سيادة الاكسل العام  من النت مباشرةً

هذا اعتراف رسمى منه

============

فكرة أفضل من قتل الملف احنا نمسّكه السلك عريان ونحذفه الى سلة المهملات

ممكن نحتاجه فى يوم  والملف الأسود ينفع فى اليوم الأبيض

واذا قررنا اعدامه خالص نعمله كود 106 ونفرغه من السلة

فيه أكتر من كده بهدله للملف

 

تحياتى للقاتل

     

تم تعديل مارس 19, 2015 بواسطه مختار حسين محمود

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

بلاش الصعايدة يعرفوا بالموضوع ، عشان إنت عارف ممكن يطاردوني عشان ياخدوا الطار ..

مشكور مرورك الكريم أخي الحبيب الغالي مختار ..

تحياتي لك بالليل والنهار ..

وادعي معايا وقول يا رب استر يا ستار ..

ونصيحة مني بلاش تفشي الأسرار ..

[Akram Galal]

ممكن تقولنا نكتب اسم الملف المراد قتلة فين

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

[ابو القبطان]

حبيب الكل استاذ : ياسر

بصراحه عمل تستاهل عليه  

 

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

الأخ الفاضل أكرم

بعد دخول محرر الأكواد Alt + F11 ستجد الكود

Sub KillSpecificFile()
    'اكتب اسم الملف المراد حذفه بالامتداد
    KillProperly (ThisWorkbook.Path & "/FileToBeKilled.xlsx")
End Sub

اسم الملف FileToBeKilled استبدله باسم الملف الذي تريد حذفه ، ولا تنسى أن يكون اسم الملف مصحوب بالامتداد

تم تعديل مارس 19, 2015 بواسطه YasserKhalil

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

جدو الغالي ..مشكور على مرورك العطر يا كبير

وشكرا على الصقفة الجامدة دي ...

تقبل تحياتي يا غالي .. وفي انتظار تجربتك للملف وإبداء أية إضافات ... بس الدور عليك تضيف إنت عليه

[أبوعيد]

شكرا لك يا أخ ياسر , إبداعات بلا حدود

فكرة جيدة

يمكن أن تستخدم في عملية الاختراق (هاكر)

 

كن ذا همة تصل للقمة

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

أخي وحبيبي في الله أبو عيد الغائب عننا

مشكور على مرورك الطيب .. وجزاك الله كل خير

[ابو القبطان]

استاذ ياسر 

رفض هذا القاتل القيام بإغتيال ملف صوره رغم توفير الامتداد ( هل هو معني بملفات الاكسيل فقط )

برجاء عمل اللازم ، وإفادتنا بما تم

نشكركم سلفا

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

جدو الحبيب شغال مع أي ملف ..بس متنساش تحدد هوية الضحية

جرب الملف التالي ..ملف صورة بامتداد JPG ..أنا جربته وشغال

Kill JPG.rar

[أبو إيمان]

بعد إذن الأستاذ ياسر 

 

وعلشان الناس متلفش ولا تدور 

يمكنك كتابة اسم الملف المراد قتله داخل خلية أو داخل مربع ادخال

 

Killer.rar

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

مشكور أبو إيمان على الإضافة بارك الله فيك ..

تقبل تحياتي

[أبو إيمان]

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

وبعدين هذه نقطة في بحر بالنسبة لأعمالك أنت والاساتذة الافاضل

[AL_AYMAN]

السادة الافاضل

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

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

وشكرا

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

جرب هذا الكود لحذف جميع الامتدادات txt في نفس مسار المصنف

Public Sub KillProperly(Killfile As String)
    If Len(Dir$(Killfile)) > 0 Then
        Kill Killfile
    End If
End Sub

Sub KillSpecificFile()
    'اكتب اسم الملف المراد حذفه بالامتداد
    KillProperly (ThisWorkbook.Path & "/*.txt")
End Sub

[توكل]

الإخوة الأحبة السلام عليكم

دائماً يحمل هذا المنتدي كل شيء مفيد وجميل، ولكن لي طلب صغير بمناسبة خذف الملفات

هل يمكن حذف الملف المفتوح بعد فتحه بمدة  10 دقائق مثلاً ؟

تقبلوا تحياتي