VSProject.WebReferencesFolder-Eigenschaft
Ruft das ProjectItem-Objekt ab, das den Ordner Webverweise des Projekts darstellt. Wenn der Ordner nicht vorhanden ist, gibt die Eigenschaft Nothing (einen NULL (Nothing in Visual Basic)-Verweis) zurück. Schreibgeschützt.
Namespace: VSLangProj
Assembly: VSLangProj (in vslangproj.dll)
Syntax
'Declaration
'Usage
Eigenschaftenwert
Gibt ein ProjectItem-Objekt zurück, das den Ordner Webverweise darstellt.
Hinweise
Greifen Sie zum Abrufen der Webverweise eines Projekts auf die ProjectItems-Eigenschaft der WebReferencesFolder-Eigenschaft zu.
Ein Projekt enthält höchstens einen Ordner Webverweise. Der Ordner kann mithilfe der CreateWebReferencesFolder-Methode erstellt werden. Der Ordner wird außerdem automatisch erstellt, wenn dem Projekt zum ersten Mal ein Webverweis mit der CreateWebReferencesFolder-Methode hinzugefügt wird.
In einem Visual Basic- oder C#-Projekt entspricht die Kind-Eigenschaft des WebReferencesFolder-Projektelements immer vsProjectItemKindPhysicalFolder, da Visual Basic- und C#-Projekte nur physikalische Dateien unterstützen.
Beispiel
' Macro Editor
' This example creates a Web references folder, if it does not
' already exist, and displays some of the folder properties.
Imports VSLangProj
Sub WebReferencesFolderExample()
' This example assumes that the first project in the
' solution is either a Visual Basic or C# project.
Dim aVSProject As VSProject = _
CType(DTE.Solution.Projects.Item(1).Object, VSProject)
' Add a new folder if it does not already exist.
If (aVSProject.WebReferencesFolder Is Nothing) Then
Dim newFolder As ProjectItem
newFolder = aVSProject.CreateWebReferencesFolder()
End If
' Display the name of the Web references folder.
Dim theFolder As ProjectItem = aVSProject.WebReferencesFolder
MsgBox("The name of the WebReferences folder is " _
& theFolder.Name & ".")
' All Visual Basic and C# Web references folders are physical.
If (theFolder.Kind = _
EnvDTE.Constants.vsProjectItemKindPhysicalFolder) Then
MsgBox(theFolder.Name & " is a physical folder.")
End If
MsgBox("There are " & theFolder.ProjectItems.Count.ToString() & _
" Web references.")
End Sub
Siehe auch
Referenz
VSProject-Schnittstelle
VSProject-Member
VSLangProj-Namespace