Public Function GetFileTitle(ByVal sFilename As String) As String
Dim lPos As Long lPos = InStrRev(sFilename, "\") If lPos > 0 Then If lPos < Len(sFilename) Then GetFileTitle = Mid$(sFilename, lPos + 1) Else GetFileTitle = "" End If Else GetFileTitle = sFilename End If End Function |