VSProject.CreateWebReferencesFolder メソッド
プロジェクトの Web References フォルダを作成します。
名前空間: VSLangProj
アセンブリ: VSLangProj (vslangproj.dll 内)
構文
'宣言
'使用
戻り値
ProjectItem オブジェクトを返します。
解説
Web References フォルダが既に存在する場合、このプロパティは既に存在するフォルダの ProjectItem を返します。
使用例
' Macro Editor
Imports VSLangProj
' This example creates a Web references folder, if it does not
' already exist, and displays some of the folder properties.
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 doesn't already exist.
If (aVSProject.WebReferencesFolder Is Nothing) Then
Dim webFolder As ProjectItem
webFolder = 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 & ".")
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