Is there an easy way of removing the file extention from the file name?

If the filename also has its path with it...

FileNameOnly = Mid(Left(PathAndFilename, InStrRev(PathAndFilename, _
".") - 1), InStrRev(PathAndFilename, "\") + 1)

If the filename is by itself (that is, without its path)...

FileNameOnly = Left(FilenameAndExtension, _
InStrRev(PathAndFilename, ".") - 1)

--
Rick (MVP - Excel)


"Fan924" wrote in message
...
Is there an easy way of removing the file extention from the file name?

On 9 Dec, 14:31, Fan924 wrote:
Is there an easy way of removing the file extention from the file name?

Hi Fan

Sub StripExt()
Dim str_FileName As String

str_FileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)

End Sub

Regards

Steve

Your statement may not work for the OP... file extensions are not always
only three characters long. Some examples from the Office 12 (Office 2007)
directory... ExpenseReport.xltx, excel.exe.manifest, SOLVER.XLAM, Building
Blocks.dotx, NewFileItems.vsdir, etc.

--
Rick (MVP - Excel)


"Scoops" wrote in message
...
On 9 Dec, 14:31, Fan924 wrote:
Is there an easy way of removing the file extention from the file name?

Hi Fan

Sub StripExt()
Dim str_FileName As String

str_FileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)

End Sub

Regards

Steve