ShowSubFolders Example
Sub Example_ShowSubfolders()
' This example returns the ShowSubfolders setting for the active project.
Dim dwgs As AeccDrawings
Set dwgs = AeccApplication.ActiveProject.Drawings
MsgBox "The ShowSubfolders value for Drawings in the current Project is " & dwgs.ShowSubfolders _
, vbInformation, "ShowSubfolders Example"
End Sub