< Public Function JustPathNoFile (FullFilename As String) As String (?)

Comments

    
    '-------------------------------------------------------------------------
    'Returns the portion of a filename up to and including the final \
    '-------------------------------------------------------------------------

Public Function JustPathNoFile (FullFilename As String) As String

    
    Dim i As Integer
    i = InStrRev(FullFilename, "\")
    If i > 0 Then
        JustPathNoFile = Left(FullFilename, i)
    Else
        JustPathNoFile = FullFilename
    End If
End Function

Copying, Return to index