[mrnooo2000]

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

كود :

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

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

كود :

RenameFiles(TxtDir.Text, Wrds)

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