Trim File names in a folder using macro

[Halley yenn]

Hi Team,

I have a folder with 70k pdf files with names as below:
AMP_12347890_12347890_Eligible_0908.pdf
ERP_13459000_13459000_Professional_8886.pdf(In these examples EMPID:13459000 and 12347890 are mentioned twice)
I need a macro to rename the above files by deleting one empid as below:
AMP_12347890_Eligible_0908.pdf
ERP_13459000_Professional_8886.
Thanks

 

[Marc L]

​

I have over complicated the correction - I was on phone … - as for Demo1 it should be​

​

If UBound(S) = 5 Then Name P & F As P & Replace(F, S(2) & D, "", , 1): N = N + 1

 

[smozgur]

@Halley yenn - I switched the marked solution as you also confirmed.

Please mark the solution post in the future instead of your feedback post. It will help future readers. Thanks.

 

[Marc L]

​

Thanks smozgur !​