[mrnooo2000]

(25-07-18, 12:01 PM)ابو روضة كتب :

(25-07-18, 11:42 AM)mrnooo2000 كتب : الاخ السائل 

الكود التالى به ما تريد 

كود :

      Private Sub RenameFiles(FolderPath As String, Words() As String)
        Try
            Dim NewName As String = ""
            Dim d As IO.DirectoryInfo = New IO.DirectoryInfo(FolderPath)
            Dim infos() As IO.FileInfo = d.GetFiles
            For Each f As IO.FileInfo In infos
                NewName = f.Name
                For Each wrd In Words
                    NewName = NewName.Replace(wrd, "")
                Next
                IO.File.Move(f.FullName, TxtDir.Text & "\" & NewName.Trim)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

انا فضلت ان اتعامل مع اسم الملف فقط حتى لا تحدث اخطاء عند وجود الكلمات التى تستبدلها فى اسم المجلد 

و لاستخدام الكود 
يمكنك ان تستخدم الكود التالى 

كود :

       Dim Wrds() = TextBox1.Text.Split(",")
       RenameFiles("D:\MyFolder", Wrds)

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

---

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

مثلا عندى مجلد وبه ملفات هكذا

mrnooo2000 _1

mrnooo2000 _2

mrnooo2000 _3

mrnooo2000 _4

mrnooo2000 _5

فاريد حذف هذه الكلمات  2000  m ,  , n من جميع هذه الملفات مرة واحدة

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