• Home
 · 
• Files/File Controls/Input/Output
 · 
• Retrieve file extension only from a file

Retrieve file extension only from a file

Retrieve file extension only from a file

Rate Retrieve file extension only from a file

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'parses extension from filename and returns the extension
'no extension is sent back as """"

    Dim nPosition As Integer
    
    If InStr(1, lpFileName, ".") < 1 Then
     Exit Function
     Else
        nPosition = InStr(1, lpFileName, ".")
        GetExtension = Mid$(lpFileName, _
            nPosition, _
            Len(lpFileName) - (nPosition - 1))
    End If
End Function