Files Example

Files Example

Sub Example_Files()

    ' This example returns the current setting of PrototypePath

    ' from the preferences object.

    Dim prefs As AeccPreferences

    Set prefs = AeccApplication.Preferences

    MsgBox "The current value for PrototypePath is: " & prefs.Files.PrototypePath, _

        vbInformation, "Files Example"

End Sub