• Home
 · 
• Files/File Controls/Input/Output
 · 
• Returns a string specifying file extension

Returns a string specifying file extension

Returns a string specifying file extension

Rate Returns a string specifying file extension

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo Error_Handler
Dim nToRight As Integer
nToRight = VBA.InStr(1, VBA.StrReverse(strSource), ".", vbTextCompare)
GetFileExtension = VBA.Right(strSource, nToRight - 1)
Exit Function
Error_Handler:
    GetFileExtension = ""
End Function