PBDR.COM

About   -   Contact   -   Purchase   -   Search   -   What's New

 
 
Get File Extension
This function returns the file extension when passed the full filepath . The function searches for the leading fullstop to determine to start of the file extension. Add the following code to a FileHandling.bas standard module to compile a File Utility function set:
Function GetExtName(ScanString as String) As String
       
'*******************************************************
'<DESC>		Retrieves File Extension Name from full
'		directory path</DESC>
'<RETURN>	File Extension Only
'			</RETURN>
'<ACCESS>	Public
'<ARGS>		FullPath: 
'			Full Filepath incl. Filename
'				</ARGS>
'<USAGE>	If GetExtName("c:\autoexec.bat")
'				</USAGE>
'*******************************************************
    
    Dim intPos as String
    Dim intPosSave as String
    
    If InStr(ScanString, ".") = 0 Then
        GetExtName = ""
        Exit Function
    End If
    
    intPos = 1
    Do
        intPos = InStr(intPos, ScanString, ".")
        If intPos = 0 Then
            Exit Do
        Else
            intPos = intPos + 1
            intPosSave = intPos - 1
        End If
    Loop

    GetExtName = Trim$(Mid$(ScanString, intPosSave + 1))

End Function
 

Top of Page

Legal Notice

Ken Howe 2011