FredixBlog

Nopath() function returns the filename without the path.
Its little sister, FilePath, returns the path without the filename.

Public Function NoPath(TheText)
Dim ch, result As String
Dim pos As Integer
pos = Len(TheText)
While ch <> "\" and pos > 0
    ch = Mid(TheText, pos, 1)
    result = ch & result
    pos = pos - 1
Wend
NoPath = Right(result, Len(result) - 1)
End Function</p>
Public Function FilePath(ThePath)
Dim result As String
result = Left(ThePath, Len(ThePath) - Len(NoPath(ThePath)))
FilePath = result
End Function

No related posts.