How to get filename without the extention

[Lee123]

In a macro how can I assign to a variable only the file name not including the extention?
ie. full_name = "InputFile.xls"
I want Short_name to be "InputFile"
Thx.

 

[NateO]

Short_name = "Input File"
Long_name = Short_name & ".xls"

Cheers, Nate

 

[Lee123]

The problem is the reverse. I have the full file name from ThisWorkBook.Name procedure but I can't just extract the shorten form.
Thx.

 

[Tim Francis-Wright]

Here's one way to do this:

full_Name = ThisWorkbook.Name
If (Right(full_Name,4) Like ".???") then
Short_Name = Left(full_Name, Len(full_Name)-4)
Else
Short_Name = full_Name
End If

 

[NateO]

How about this:

Short_Name = worksheetfunction.substitute(full_name,".xls","")

Cheers, Nate