ProjectItems Interface
Contains ProjectItem objects, each representing items in the project.
Assembly: EnvDTE (in EnvDTE.dll)
| Name | Description | |
|---|---|---|
![]() | ContainingProject | Gets the project hosting the project item or items. |
![]() | Count | Gets a value indicating the number of objects in the collection. |
![]() | DTE | Gets the top-level extensibility object. |
![]() | Kind | Gets an enumeration indicating the type of object. |
![]() | Parent | Gets the immediate parent object of a ProjectItems collection. |
| Name | Description | |
|---|---|---|
![]() | AddFolder(String^, String^) | Creates a new folder in Solution Explorer. |
![]() | AddFromDirectory(String^) | Adds one or more ProjectItem objects from a directory to the ProjectItems collection. |
![]() | AddFromFile(String^) | Adds a project item from a file that is installed in a project directory structure. |
![]() | AddFromFileCopy(String^) | Copies a source file and adds it to the project. |
![]() | AddFromTemplate(String^, String^) | Creates a new project item from an existing item template file and adds it to the project. |
![]() | GetEnumerator() | Returns an enumeration for items in a collection. |
![]() | Item(Object^) | Returns a ProjectItem object in a ProjectItems collection. |
This collection consists of a hierarchical (nested) structure of cascading ProjectItems collections that represent items in each project.
Reference this collection using Solution.Item().ProjectItems.
' Before running, create a new project or open an existing project. Sub ListProj() Dim proj As Project = DTE.ActiveSolutionProjects(0) Dim win As Window = _ DTE.Windows.Item(Constants.vsWindowKindCommandWindow) ListProjAux(proj.ProjectItems(), 0) End Sub Sub ListProjAux(ByVal projitems As ProjectItems, ByVal Level As Integer) Dim projitem As ProjectItem For Each projitem In projitems MsgBox("Project item: " & projitem.Name, Level) ' Recurse if the project item has sub-items... Dim projitems2 As ProjectItemsprojitems2 = projitem.ProjectItems Dim notsubcoll As Boolean = projitems2 Is Nothing If Not notsubcoll Then ListProjAux(projitems2, Level + 1) End If Next End Sub

