Want to rename Jpg files from diff paths

[Sunil7598]

Hi Guys,

I want rename list of jpg files from diff paths. But the only issue is end of the path it has file name

\\arlmssan02\COM_Mumbai$\Namshi P2P & Catalogue Support\B&M\14 dec\Image Renaming\Mango_Input Data\Extra images of Mango Bidc 14 Dec\47001009_30_D8.jpg	W1591482A-3S_1
\\arlmssan02\COM_Mumbai$\Namshi P2P & Catalogue Support\B&M\14 dec\Image Renaming\Mango_Input Data\Mango Bidc 14Dec Output\47001009_30.jpg	W1591482A-3S_2
\\arlmssan02\COM_Mumbai$\Namshi P2P & Catalogue Support\B&M\Image renaming- practice\47001009_30.jpg	W1591482A-3S_3
\\arlmssan02\COM_Mumbai$\Namshi P2P & Catalogue Support\B&M\Images rework- 12 dec-2022\47001009_30-99999999_01.jpg	W1591482A-3S_4
\\arlmssan02\COM_Mumbai$\Sumit\Desktop\Extra images\Mango_Bidc\47001009_30_B3.jpg	W1591482A-3S_5
\\arlmssan02\COM_Mumbai$\Sumit\Desktop\Image renaming Tejaswini\Images\47001009_30_B3.jpg	W1591482A-3S_6

Column A is org file name with path & column b is new file name. and move all this files to a new folder.

I know it's difficult, but can anyone help me with this

 

[ExceLoki]

try this:
------------------

Want to rename Jpg files from diff paths.xlsm
	A	B	C	D	E	F
1	Old File	New File Path	New File Name	New Full	Count	6
2	\\arlmssan02\COM_Mumbai$\Namshi P2P & Catalogue Support\B&M\14 dec\Image Renaming\Mango_Input Data\Extra images of Mango Bidc 14 Dec\47001009_30_D8.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\	W1591482A-3S_1.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\W1591482A-3S_1.jpg	1
3	\\arlmssan02\COM_Mumbai$\Namshi P2P & Catalogue Support\B&M\14 dec\Image Renaming\Mango_Input Data\Mango Bidc 14Dec Output\47001009_30.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\	W1591482A-3S_2.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\W1591482A-3S_2.jpg	2
4	\\arlmssan02\COM_Mumbai$\Namshi P2P & Catalogue Support\B&M\Image renaming- practice\47001009_30.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\	W1591482A-3S_3.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\W1591482A-3S_3.jpg	3
5	\\arlmssan02\COM_Mumbai$\Namshi P2P & Catalogue Support\B&M\Images rework- 12 dec-2022\47001009_30-99999999_01.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\	W1591482A-3S_4.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\W1591482A-3S_4.jpg	4
6	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\Extra images\Mango_Bidc\47001009_30_B3.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\	W1591482A-3S_5.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\W1591482A-3S_5.jpg	5
7	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\Image renaming Tejaswini\Images\47001009_30_B3.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\	W1591482A-3S_6.jpg	\\arlmssan02\COM_Mumbai$\Sumit\Desktop\W1591482A-3S_6.jpg	6
Output

Cell Formulas
Range	Formula
F1	F1	=MAX(E:E)
D2:D7	D2	=CONCATENATE("",B2,"",C2)
E2:E7	E2	=IF(D2<>"",ROW()-1,"")

------------

Sub rename()

Dim OldName
Dim NewName
For counter = 2 To Range("F1").Value + 1
Worksheets("Output").Activate
OldName = Cells(counter, "A").Value
NewName = Cells(counter, "D").Value
Name OldName As NewName
Next counter
End Sub