Tramite modulo (ovvero VBA)

codice:
CurrentProject.Path & "\" & CurrentProject.Name
Spero sia questo che ti serva.