Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
    Next
    
    If endPos = 0 Then
        ' this file has no extension
        GetFileBaseName = Mid$(FileName, startPos)
    Else
        GetFileBaseName = Mid$(FileName, startPos, endPos - startPos + 1)
    End If
End Function

Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

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