Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB5,VB6
Expertise: beginner
Jun 12, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

GetFilebaseName - Retrieve the base portion in a file name

' Retrieve a file's base name
' if the second argument is true, the result include the file's path

Function GetFileBaseName(FileName As String, Optional ByVal IncludePath As _
    Boolean) As String
    Dim i As Long, startPos As Long, endPos As Long
    startPos = 1
    For i = Len(FileName) To 1 Step -1
        Select Case Mid$(FileName, i, 1)
            Case "."
                ' we've found the extension
                If IncludePath Then
                    ' if we must return the path, we've done
                    GetFileBaseName = Left$(FileName, i - 1)
                    Exit Function
                End If
                ' else, just take note of where the extension begins
                If endPos = 0 Then endPos = i - 1
            Case ":", "\"
                If Not IncludePath Then startPos = i + 1
                Exit For
        End Select
    If endPos = 0 Then
        ' this file has no extension
        GetFileBaseName = Mid$(FileName, startPos)
        GetFileBaseName = Mid$(FileName, startPos, endPos - startPos + 1)
    End If
End Function

Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date