e(ByVal sName As String)
Dim i As Long, iPos As Long
    m_sFIleName = sName
    For i = Len(sName) To 1 Step -1
        If Mid$(sName, i, 1) = "\" Then
            iPos = i + 1
            Exit For
        End If
    Next i
    If (iPos &gt; 0) Then
        m_sFIleTitle = Mid$(sName, iPos)
    Else
        m_sFIleTitle = sName
    End If
    
End Property

Public Property Get FileName() As String
    FileName = m_sFIleName
End Property
Public Property Get FileTitle() As String
    FileTitle = m_sFIleTitle
