هل يمكن تغير اسم او جزء من اسم مجموعة فولدرات داخل مجلد 100 فولدر
مثلا اسم الفولدرث xls \vb2010
اغير الحروف كابيتل لكل الفولدرات او استبدل vb لكل الفولدرات ب mazen
السلام عليكم ورحمة الله وبركاته
فالنفرض لدينا في الـ 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
****
***
**
*
قمة في الروعة اخي kslawy 100/100