تغير اسم مجلدات او حذف جزء من اسم مجلدات

تامر خليفه · منذ 22 ساعات

مرحباء للجميع

هل هناك طريقه برمجيه لتغير اسم مجلدات كثيره او حذف جزء ثابت من اسمهم مره واحده

طبعا لا استطيع ان ادرج مثال لان عدد المجلدات كثيره

**Foksh** · منذ 20 ساعات

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

طبعاً تستطيع اخي الكريم ، اعطينا مثال لمجلدات فارغة على الاقل ، تستطيع ارفاق 1000 مجلد فارغ بحجم لا يتعدى 5 كيلو بايت أخي @تامر خليفه

تامر خليفه · منذ 20 ساعات

New folder.rar

مرفق مجلد مضغوط به عدد من المجلدات اسمها رقمي وقبل الرقم New folder

اريد مثلا حذف كلمه New folder من اسم جميع المجلدات

شكرا للتفاعل

**Foksh** · منذ 19 ساعات

32 دقائق مضت, تامر خليفه said:

اريد مثلا حذف كلمه New folder من اسم جميع المجلدات

لتبسيط الأمور ، تستطيع فعل هذه الخطوة من خلال الويندوز نفسه ..

1. افتح PowerShell كمسؤول (Administrator) .
2. حدد المسار الخاص بالمجلد من خلال السطر :-

cd C:\Users\Golden\Desktop\New

طبعاً المجلد New الذي يحتوي المجلدات المستهدف تغييرها .. وأنصحك بعدم استخدام مسار مجلد من كلمتين تفصل بينهما مسافة ، استخدم "_" أو الاسم المكون من كلمة واحدة ,, على العموم

3. بعد التأكد أنك في مسار المجلد الذي يحتوي المجلدات التي تريد تغييرها .. اكتب الكود التالي :-

Get-ChildItem -Directory | Where-Object { $_.Name -like "New folder *" } | ForEach-Object { Rename-Item -Path $_.FullName -NewName ($_.Name -replace '^New folder ', '') }

4. بانتظار تجربتك ..

تامر خليفه · منذ 19 ساعات

بنفذ الخطوات زي ما حضرتك قولت لكن بتظهر الرساله دي ومافيش اي تغير

**ابوخليل** · منذ 18 ساعات

مشاركة مع اخي فادي

ضع المرفق بجانب المجلد ونفذ

ملحوظة مهمة : خذ نسخة من مجلدك قبل التنفيذ

Private Sub cmd1_Click()
RenameSubFolders (CurrentProject.Path & "\New folder")
End Sub
Sub RenameSubFolders(ByVal MainFolder As String)
   Dim sSubFolder As String
   sSubFolder = Dir(MainFolder & "\New folder?*", vbDirectory)
   Do While sSubFolder <> ""
      If GetAttr(MainFolder & "\" & sSubFolder) = vbDirectory Then
         Name MainFolder & "\" & sSubFolder As MainFolder & "\" & Mid$(sSubFolder, 12)
      End If
      sSubFolder = Dir()
   Loop
End Sub

changeSomeFolderName.rar