[ابو روضة]

لقد وضحت استخدام الكود فى المشاركة 

كود :

       Dim Wrds() = TxtWords.Text.Split(",")

الكود السابق يقوم بتقسيم الكلمات التى ادخلتها فى التكست بوكس الى مصفوفة
اسم مربع النص TxtWords  او غير اسمه حسب ما لديك

كود :

RenameFiles(TxtDir.Text, Wrds)

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

تسلم اخى ربنا يكرمك وجزاك الله كل خير