• Home
 · 
• Files/File Controls/Input/Output
 · 
• Returns a string specifying File name without path and extension

Returns a string specifying File name without path and extension

Returns a string specifying File name without path and extension

Rate Returns a string specifying File name without path and extension

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo Error_Handler
Dim lngBegin As Long
Dim lngToRight As Long
lngBegin = VBA.InStr(1, VBA.StrReverse(strSource), "\", vbTextCompare)
lngToRight = VBA.InStr(1, VBA.StrReverse(strSource), ".", vbTextCompare)
GetFileNameWOExt = VBA.Left(VBA.Right(strSource, lngBegin - 1), lngBegin - lngToRight - 1)
Exit Function
Error_Handler:
    GetFileNameWOExt = ""
End Function