путь к MXD файлу

Question

Скажите, как правильно определить (программно) путь к файлу .MXD? Не в VBA, а на VB для DLL. Я пользуюсь таким кодом, но его работа зависит от погоды в магадане:

Function GetAppPath() As String
   GetAppPath = ""
   Dim VbProj As Object, s As String, p As Long
   If pDllAppl Is Nothing Then Exit Function
   Set VbProj = pDllAppl.Document.VBProject
   If VbProj Is Nothing Then Exit Function
   s = VbProj.FileName: p = InStrRev(s, "\")
   GetAppPath = Left(s, p - 1)
End Function

Чтобы эта функция правильно работала, я должен добавить на mxd проект хотя бы одну функцию, типа:

sub aa()
   dim a
   a=0
end sub

Answer 1

Private Function GetProjectPath(my_App as IApplication) As String
  Dim pTemplates As ITemplates
  Dim pTempCount As Long
  Dim pDocPath As String

  Set pTemplates = my_App.Templates
  pTempCount = pTemplates.Count
' The document is always the last item
  pDocPath = pTemplates.Item(pTempCount - 1)
  GetProjectPath = pDocPath
'
Set pTemplates = Nothing

 End Function