Path Example

Path Example

Examples:

Sub Example_Path_DescriptionKeyFile()

    ' This example returns the Path for the first

    ' DescriptionKeyFile in the collection.

    Dim dKeyFile As AeccDescriptionKeyFile

    Set dKeyFile = AeccApplication.ActiveProject.DescriptionKeyFiles.Item(0)

    MsgBox "The value for DescriptionKeyFile Path is: " & dKeyFile.Path, vbInformation, "Path Example"

End Sub

Sub Example_Path_DescriptionKeyFiles()

    ' This example returns the Path for DescriptionKeyFiles.

    Dim dKeyFiles As AeccDescriptionKeyFiles

    Set dKeyFiles = AeccApplication.ActiveProject.DescriptionKeyFiles

    MsgBox "The value for DescriptionKeyFiles Path is: " & dKeyFiles.Path, vbInformation, "Path Example"

End Sub

Sub Example_Path_Drawing()

    ' This example returns the Path setting for the first Drawing

    ' in the collection.

    Dim dwg As AeccDrawing

    Set dwg = AeccApplication.ActiveProject.Drawings(0)

    MsgBox "The Path for the first Drawing in the collection is: " & dwg.Path _

        , vbInformation, "Path Example"

End Sub

Sub Example_Path_Drawings()

    ' This example returns the Path for the drawings in the active project.

    Dim dwgs As AeccDrawings

    Set dwgs = AeccApplication.ActiveProject.Drawings

    MsgBox "The Path value for Drawings is: " & dwgs.Path, vbInformation, "Path Example"

End Sub

Sub Example_Path_FileLocks()

    ' This example returns the Path for the FileLocks in the active project.

    Dim fileLocks As AeccFileLocks

    Set fileLocks = AeccApplication.ActiveProject.FileLocks

    MsgBox "The Path value for FileLocks is: " & fileLocks.Path, vbInformation, "Path Example"

End Sub

Sub Example_Path_Project()

    ' This example returns the Path setting for the first Project

    ' in the collection

    Dim proj As AeccProject

    Set proj = AeccApplication.Projects.Item(0)

    MsgBox "The Path value for the first Project in the collection is: " & proj.Path, vbInformation, "Path Example"

End Sub