[RESOLVED] Show only part of a filename in a label vb6

[isnoend07]

Public Function GetBaseName(ByRef Path As String) As String
    Dim StartPos As Long, EndPos As Long

    StartPos = InStrRev(Path, "\") + 1&
    EndPos = InStrRev(Path, ".")
    GetBaseName = Mid$(Path, StartPos, EndPos - StartPos)
End Function

Just what i needed thanks