debug.print Left(Application.CurrentProject.Path, InStrRev(Application.CurrentProject.Path, "\"))
I am creating many MSAccess Applications that use SQL Server, Excel Object Model Programming, Excel Templates, output folders (for Excel), ....
One folder has sub folders with each of these...