Как найти путь к файлу mxd открытому в ArcMap?

[sng]

Где в ArcObjects есть такое свойство как путь к открытому файлу mxd в ArcMap

[sng]

Отвечаю сам себе:

Dim pVBE As VBIDE.VBE: Set pVBE = Application.VBE
Dim pVBProj As VBIDE.VBProject: Set pVBProj = pVBE.ActiveVBProject
Dim strPath As String
strPath = pVBProj.FileName

[Lforj]

Или так:

Код: Выделить всё

mxPath = Application.Templates.Item( Application.Templates.Count - 1)

=)