Rename using "mid" or 'right"?

[szander]

I need to rename a large number of files only using the 4 characters to the left of '.' before the extension.

example - original file name is - rebate5664.tif
needs to be renamed to 5664.tif

I have already dealt with any duplications.

Thanks for the help.

 

[Sheco]

Maybe what you really need is the InStrRev() function to pick out the position of the first period starting from the end of the string. Then just take this position, subtract 4, and use Mid from that point.

posPeriod = InStrRev(strOldFileName, ".")
strNewFileName = Mid(strOldFileName, (posPeriod - 4), 4)

 

[pkailas]

What Sheco says, but...

strNewFileName = Mid(strOldFileName, (posPeriod - 4))

drop the , 4 from it or you'll lose your extention

I love small animals, especially with a good brown gravy....

 

[Sheco]

Oh, heh yeah, good catch! I was focused only on the 4 wanted characters and I forgot all about the real problem.

 

[szander]

Excellent.....thanks folks!