ms-access-97

You can do something simple like: Left(path, InStrRev(path, “\”)) Example: Function GetDirectory(path) GetDirectory = Left(path, InStrRev(path, Application.PathSeparator)) End Function