منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التحكم في اسماء مجموعة فولدرات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التحكم في اسماء مجموعة فولدرات (/showthread.php?tid=9855)

التحكم في اسماء مجموعة فولدرات - mazen - 30-07-13

هل يمكن تغير اسم او جزء من اسم مجموعة فولدرات داخل مجلد 100 فولدر

مثلا اسم الفولدرث xls \vb2010

اغير الحروف كابيتل لكل الفولدرات او استبدل vb لكل الفولدرات ب mazen

التحكم في اسماء مجموعة فولدرات - kslawy - 30-07-13

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

فالنفرض لدينا في الـ 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


****
***
**
*

التحكم في اسماء مجموعة فولدرات - mazen - 31-07-13

قمة في الروعة اخي kslawy 100/100