アプリケーションのカレント ディレクトリーを取得する方法

FileSystem.CurDir
 
Dim pDocument As IDocument
Set pDocument = ThisDocument
 
Dim pVBProject As VBProject
Set pVBProject = pDocument.VBProject
 
Replace pVBProject.FileName, ".mxd", ""
 
Debug.Print pVBProject.FileName