BATCH RENAME MENGGUNAKAN MS. EXCEL

Sub RenameMultipleFiles()
   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
               curRow = Application.Match(dFileList, Range(“A:A”), 0)
               If curRow > 0 Then
                   Name selectDirectory & Application.PathSeparator & dFileList As _
                   selectDirectory & Application.PathSeparator & Cells(curRow, “B”).Value
               End If

               dFileList = Dir
           Loop
       End If
   End With
End Sub

Burhan “OWL”

“The strongest among you is the one who controls his anger” – Muhammad SAW Hi, let me introduce myself. My name is Muhammad Burhanuddin Rabbani, but you can call me Burhan. I am a middle-aged man from Indonesia who is looking for a life partner. I have a Bachelor’s degree in Public Administration from Brawijaya University in Malang. However, my hobbies are more focused on photography and digital art, and I also dabble in web design and programming. Untuk gallery design bisa lihat di : https://www.burhan.web.id/artwork/ – – #burhan_owl #AvelineChrismonica

Burhan "OWL"

“The strongest among you is the one who controls his anger” – Muhammad SAW

Hi, let me introduce myself. My name is Muhammad Burhanuddin Rabbani, but you can call me Burhan. I am a middle-aged man from Indonesia who is looking for a life partner. I have a Bachelor’s degree in Public Administration from Brawijaya University in Malang. However, my hobbies are more focused on photography and digital art, and I also dabble in web design and programming.
Untuk gallery design bisa lihat di : https://www.burhan.web.id/artwork/
–
–
#burhan_owl #AvelineChrismonica

www.burhan.web.id