need to seperate string by .

[Inimicum]

I'm loading a file name into a string and would like to cut off the file extension .txt, .exe, etc.. so it's only left with the name of the file.

What would I use,

I just learned the great use of left$, Mid$, Right$ yesterday but out of all of those the Right$ would be closest to what I need and 'say remove the last 4 characters instead of use them' but, that's not working,

[nullus]

try this

Left("blah.txt", InStrRev("blah.txt", ".") -1)

[HeSaidJoe]

MsgBox Mid(sFileName, InStrRev(sFileName, "\") + 1)

[rockies1]

How about something like this:

Dim strFileName As String
Dim strNewName As String
strFileName = "This is my file.txt"
strNewName = Left(strFileName, Len(strFileName) - 4)
MsgBox strNewName

[HeSaidJoe]

rockies1

that would work for 3 letter extensions only.
.html would give you grief.

[rockies1]

That is correct...

Darn long file names...

I'm still stuck in an 8.3 world :-)

[Inimicum]

wow, two different ways that look good, great.

strNewName = Left(strFileName, Len(strFileName) - 4)
(couldn't get to work)


Left("blah.txt", InStrRev("blah.txt", ".") -1)
(yea)

[nullus]

wuhoo! i'm on a roll