Public Function GetFilePath(ByVal sFilename As String, _
Optional ByVal bAddBackslash As Boolean) As String Dim lPos As Long lPos = InStrRev(sFilename, "\") If lPos > 0 Then GetFilePath = Left$(sFilename, lPos - 1) _ & IIf(bAddBackslash, "\", "") Else GetFilePath = "" End If End Function |