Renaming a file names in folder.

[nmkhan3010]

Am having more than 100 documents in folder.

Actual name is “16603411-FinancialTables_Translated.docx” it should be rename as

“16603411-FinancialTables.docx” just elimination “_Translated.docx” in every file in a folder. Please help me in this regards.

Please find the attachment for better understanding.

First 8 Digits are fixed for every file name and that number are amend with “_Translated.docx”

My objective was to delete “_Translated.docx” from a folder (In a folder having more than 100 Doc's)

 

[Belleke]

You can use this.
https://www.bulkrenameutility.co.uk/
Select the files you want to change in the top window
In the replace textbox of the program type _Translated.docx and leave the With texbox empty and click the Rename button. Done.

 

[PCI]

See a tool to rename files
The sub List prepare the list of the file in the active folder
In the user sheet in the file attached yoiu have to the new name infro,t of the old one
Take care that there is formulas to care of your personal need =LEFT(C4,FIND("_",C4)-1) & ".docx"

Option Explicit
Sub List()
Dim OLD  As Range
Dim I As Integer
Dim WkPath As String
Dim ActF As String
Dim FileAr
Dim F

Dim FSO
    WkPath = ActiveWorkbook.Path
    ActF = ActiveWorkbook.Name
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FileAr = FSO.Getfolder(WkPath).Files

    Set OLD = Range("OLD")
    Range([OLD](2), Cells(Rows.Count, OLD.Column).End(3)(2, 2)).ClearContents

    For Each F In FileAr
        If Not (F.Name Like "*" & ActF & "*") Then
            I = I + 1
            [OLD](1 + I) = F.Name
        End If
    Next F
End Sub


Sub Rename()
Dim OLD  As Range
Dim I As Integer
Dim WkPath As String
Dim WkRg  As Range, Rg  As Range

Dim FSO
    WkPath = ActiveWorkbook.Path
    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set OLD = Range("OLD")
    Set WkRg = Range([OLD](2), Cells(Rows.Count, OLD.Column).End(3))
    For Each Rg In WkRg
        If (Rg(1, 2) <> "") Then _
            FSO.GetFile(WkPath & "\" & Rg).Name = Rg(1, 2)
    Next Rg
    MsgBox ("Job Done")
End Sub

 

[rahulshewale1]

Hi @nmkhan3010 ,

See if is it ok ?


Regard
Rahul Shewale

 

[nmkhan3010]

Thanks a lot and sorry for delay .....

Your work is highly appreciated....

 

[rahulshewale1]

welcome