<code>Public Function PathFromFile(ByVal sFilename As String) As String
  If InStr(sFilename, "\") > 0 Then
    PathFromFile = Left$(sFilename, InStrRev(sFilename, "\") - 1)
  End If
End Function
 
Public Function FileFromPath(ByVal sFilename As String) As String
  If InStr(sFilename, "\") > 0 Then
    FileFromPath = Mid$(sFilename, InStrRev(sFilename, "\") + 1)
  Else
    FileFromPath = sFilename
  End If
End Function</code>