مكتبة الموقع - استبدال أسماء كل الملفات فى مجلد

[محمد طاهر عرفه]

اعرض الملف

استبدال أسماء كل الملفات فى مجلد

---

 

بحثت عنه ولم اجده ـ على الرغم اني اذكر اضافته سابقا

فاضيفه الان  لمن يحتاج مثل هذا الكود

 

1- استخدم الكود السابق نشره لتوثيق كافة اسماء الملفات فى مجلد

مكتبة الموقع - تطبيق لتوثيق قائمة بالمجلدات و الملفات و خصائصها - مفيد جداً

او كتب اسماء الملفات الحالية الموجودة فى المجلد المستهدف مباشرة فى العمود  B

 

2 - ثم اكتب فى العمود D  اسماء الملفات الجديدة

 

3- شغل الكود لاستبدال اسماء الملفات ، و اختار المجلد المستهدف

Sub RenameMultipleFiles()

' add old file name to column B , and new File name to Col D

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show = -1 Then
            selectDirectory = .SelectedItems(1)
            dFileList = Dir(selectDirectory & Application.PathSeparator & "*")
        
            Do Until dFileList = ""
                curRow = 0
                On Error Resume Next
                'read old file name from column B
                curRow = Application.Match(dFileList, Range("B:B"), 0)
                If curRow > 0 Then
                'cganeg to new file name from column D
                Name selectDirectory & Application.PathSeparator & dFileList As _
                    selectDirectory & Application.PathSeparator & Cells(curRow, "D").Value
                End If
        
                dFileList = Dir
            Loop
        End If
    End With
End Sub

 

---

• صاحب الملف
  محمد طاهر عرفه
• تمت الاضافه
  06 يول, 2024
• الاقسام
  قسم الإكسيل

 

[حسونة حسين]

بارك الله فيك دكتورنا الغالي 

جعله الله في ميزان حسناتك يوم القيامه