VSProject.WebReferencesFolder プロパティ
プロジェクトの Web References フォルダを表す ProjectItem オブジェクトを取得します。フォルダが存在しない場合、このプロパティは Nothing (null オブジェクト参照 (Visual Basic ではNothing) 参照) を返します。読み取り専用です。
名前空間: VSLangProj
アセンブリ: VSLangProj (vslangproj.dll 内)
構文
'宣言
'使用
プロパティ値
Web References フォルダを表す ProjectItem オブジェクトを返します。
解説
WebReferencesFolder の ProjectItems プロパティにアクセスすることによって、プロジェクトの Web 参照を取得できます。
1 つのプロジェクトに格納できる [Web References] フォルダの数は 1 つです。このフォルダは、CreateWebReferencesFolder を使用して作成できます。また、このフォルダは、CreateWebReferencesFolder を使用して最初の Web 参照がプロジェクトに追加されたときに自動的に作成されます。
Visual Basic プロジェクトと C# プロジェクトがサポートしているのは物理ファイルだけであるため、これらのプロジェクトでは、WebReferencesFolder プロジェクト項目の Kind プロパティは、常に vsProjectItemKindPhysicalFolder です。
使用例
' 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