Le portail francophone de la géomatique

Here is the new code which I think will accomplish what you are trying to do. You will still need to reference Microsoft Scripting Runtime to get the date modified.

First inside ArcMap

1. Inset --> Text
2. Right click the new text element --> Properties
3. Under Size and Position Tab
4. Element Name Should be : FileName

Next Inside Microsoft Visual Basic Editor

1. Tools --> References --> Check "Microsoft Scripting Runtime"
2. Inside Project --> ArcMap Objects --> ThisDocument
3. Paste Code Below and reference AddFilePath in your code that is already written.

Code To Paste:

Code:

Public Sub AddFilePath()

Dim pApplication As Application
    Set pApplication = Application
    
Dim pDocument As IDocument
    Set pDocument = pApplication.Document
    
Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    
Dim pMap As IMap
    Set pMap = pMxDoc.Maps.Item(0) 'must be the first Data Frame in the map
    
Dim pLayout As IPageLayout
    Set pLayout = pMxDoc.PageLayout
    
Dim pActiveView As IActiveView
    Set pActiveView = pMxDoc.ActiveView

'Scroll through all elements on the layout
Dim pGraphicsCont As IGraphicsContainer
    Set pGraphicsCont = pActiveView.GraphicsContainer

    pGraphicsCont.Reset

Dim pElement As IElement
    Set pElement = pGraphicsCont.Next

Do Until pElement Is Nothing

    'Check the element's name - we are looking for one called "FileName"
    Dim pElementProp As IElementProperties
        Set pElementProp = pElement

            If pElementProp.Name = "FileName" Then

                'Double-check that this is a text element
                    If TypeOf pElement Is ITextElement Then

                        'Make Sure You Reference Microsoft Scripting Runtime or this will not work!!!!!!

                        Dim pTemplates As ITemplates
                            Set pTemplates = Application.Templates
                            
                        Dim lTempCount As Long
                            lTempCount = pTemplates.Count
                            
                        ' Normal is always the first item
                        Dim strNormalPath As String
                            strNormalPath = pTemplates.Item(0)
                            
                        ' The document is always the last item
                        Dim strDocPath As String
                            strDocPath = pTemplates.Item(lTempCount - 1)
                            
                        ' If present, the base template is the middle item
                        Dim strBasePath As String
                            If lTempCount = 3 Then
                                strBasePath = pTemplates.Item(1)
                            Else
                                strBasePath = "NO BASE TEMPLATE LOADED"
                            End If
                            
                        ' Report pathnames
                        ' MsgBox "Normal Template:  " & strNormalPath & vbNewLine & "Base Template:  " & strBasePath & vbNewLine & "Document:  " & strDocPath
                        
                        'Update the text to the file path of the project
                        Dim pTextElement As ITextElement
                            Set pTextElement = pElement
                            
                        Dim fso As New FileSystemObject
                        Dim f As File
                            Set f = fso.GetFile(strDocPath)
                            
                        Dim filedate As String
                            filedate = f.DateLastModified
                            'MsgBox filedate
                            
                            pTextElement.Text = "Map Plotted: " & Now & ", " & "Map Edited: " & filedate & ", " & "File: " & strDocPath
                            
                    End If

            End If

    'Move on to the next graphic element
    Set pElement = pGraphicsCont.Next

Loop

'Refresh the display
pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing

End Sub