[ابو روضة]

(25-07-18, 05:56 PM)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 من جميع هذه الملفات مرة واحدة

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

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

لكن ممكن تقول الطريقة الصحيحة لاستخدامه لانى استخدمت هنذا المسار بتاع المجلد FolderPath

وفى التكست بوكس كتبت الكلمات التى اريد حذفهالكنها لم تُحذف فمش عارف هل هذا الاستخام سحيح أم لا