FileExtension

' Return the extension of a file name


Function GetFileExtension(ByVal FileName As String) As String
Dim i As Long
For i = Len(FileName) To 1 Step -1
Select Case Mid$(FileName, i, 1)
Case "."
GetFileExtension = Mid$(FileName, i + 1)
Exit For
Case ":", "\"
Exit For
End Select
Next
End Function