Get the extension of a file

[DougHomeOffice]

How do I get the extension of a file when I have the full name and path as a string

-Thanks

 

[jhall156]

Have you tried Right(RTrim(<yourpath>),3)?
Also you could use InStr to look for &quot;.&quot;
JHall

 

[GComyn]

Here is a function I got off the net somewhere....

Public Function GetFileExtension(strFileName As Variant) As String
    Dim strTemp As String
    Dim strTemp2 As String
    Dim intPos As Integer
    
    If IsNull(strFileName) Then
        strTemp = " "
    Else
        strTemp2 = strFileName
        intPos = InStrRev(strTemp2, ".")
        If intPos = 0 Then
            strTemp = " "
        Else
            If intPos = Len(strTemp2) Then
                strTemp = " "
            Else
                strTemp = Mid(strTemp2, intPos + 1)
            End If
        End If
    End If
    
    GetFileExtension = strTemp
End Function

I think this will work with a full path.... I've not tested it that way... but it should.

GComyn