stripping the file extension 1

[PushCode]

I got this nice little function via a google search. But it is doing the exact opposite of what I need. It is taking a filename (Ex: test.jpg) and returning the extension and preceding period (Ex: .jpg). I need to rework this to only return the filename, everything before the period and extension (Ex: test). Can anyone help me do this?

function StripFileExt(strFileName)
	if strFileName = "" Then Exit function
	if InStr(1, strFileName, ".") = 0 Then Exit function
	StripFileExt = Right(strFileName, Len(strFileName) - InStrRev(strFileName, ".") + 1)
End function

 

[johnwm]

Just change the Right to Left and adjust the counter to count from before the . instead of after:

function StripFileExt(strFileName)
        if strFileName = "" Then Exit function
        if InStr(1, strFileName, ".") = 0 Then Exit function
        StripFileExt = [COLOR=red]left[/color](strFileName, InStrRev(strFileName, ".")[COLOR=red] - 1[/color])
End function

___________________________________________________________
If you want the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller
Steam Engine Prints

 

[PushCode]

Thank you, that did it.