Filename truncated @ underscore when removing file extension

[Cyberwolf000]

Hi all,

What I am attempting to do is to strip off the file extension of a file and then search for that file name in a list on a worksheet. Here is the line of code I thought should work

TempName = Left(FileItem.Name, Len(FileItem.Name) - InStrRev(FileItem.Name, ".") - 1)

What is appening is if there is an underscore in the filename all I get is the characters before the underscore ie.

Aero_PM.accdb would only give me Aero instead of Aero_PM. Any ideas on why this is happening?

TIA

 

[Ruddles]

No it isn't - it's giving you as many characters from the beginning of the filename as there are characters in the extension, minus one. If your file was called Aero_PM.mdb, it would return just Ae. You don't need to consider the length of the file name in your calculation as InStrRev returns the position of the dot from the beginning of the string, not the end.

Try this:-

TempName = Left(FileItem.Name, InStrRev(FileItem.Name, ".") - 1)

 

[Cyberwolf000]

RESOLVED - Re: Filename truncated @ underscore when removing file extension

That took care of it.

Thanks,