< Public Function JustFileNoPathNoExtension (FullFilename As String) As String (?)
Comments'------------------------------------------------------------------------- 'Returns the portion of a filename from the final \ to the final . '-------------------------------------------------------------------------
Public Function JustFileNoPathNoExtension (FullFilename As String) As String
Dim Pos As Integer
Dim outText As String
outText = FullFilename
Pos = InStrRev(outText, "\")
If Pos > 0 Then
outText = TrimFrom(outText, Pos, 0)
End If
Pos = InStr(outText, ".")
If Pos > 0 Then
outText = Left(outText, Pos - 1)
End If
JustFileNoPathNoExtension = outText
End Function