[kslawy]

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

فالنفرض لدينا في الـ C مجلد باسم Mazen يحتوي علي عدة مجلدات .

لتغيير أسماء المجلدات لتكون كلها بالحروف الكبيرة :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo("C:\Mazen")
            For Each d As IO.DirectoryInfo In dir.GetDirectories
                Rename(d.FullName, d.FullName.ToUpper)
            Next
        Catch ex As Exception
            MsgBox(ex.Message, 48, "Error")
        End Try
    End Sub

لاستبدال جزء من اسم المجلد :

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo("C:\Mazen")
            For Each d As IO.DirectoryInfo In dir.GetDirectories
                Dim newName As String = d.FullName.Replace(("vb").ToLower, "Mazen")
                Rename(d.FullName, newName)
            Next
        Catch ex As Exception
            MsgBox(ex.Message, 48, "Error")
        End Try
    End Sub

****
***
**
*