右键菜单快速打开VS 2005 Website项目

这个是很久以前就在用的，今天突然发觉家里的机器上居然没装。一下忘了怎么弄，搞了半天才搞好。特此记录背忘。

实现效果：在文件夹上右键，选择“Open as Visual Studio Website”，VS自动打开并加载此文件夹为一个Website项目





步骤：
1。在VS2005中选择 Toos/Macros/Macros IDE
2。选中MyMacros项目，并添加一个一个module，命名为“Website”
3。代码
Public Module Website

Sub OpenWebsite(Optional ByVal path As String = "")

If (String.Compare(path, String.Empty) = 0) Then

MsgBox("Must supply a folder path to the OpenWebsite macro", MsgBoxStyle.OkOnly)

Else

Dim webPkg As VsWebSite.VSWebPackage

webPkg = DTE.GetObject("WebPackage")

webPkg.OpenWebSite(path, VsWebSite.OpenWebsiteOptions.OpenWebsiteOption_None, False)

End If

End Sub

End Module
4。在References中添加“VsWebSite.Interop.dll”
5。将以下内容存成“OpenWebsite.reg”并运行
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\OpenVSWeb]

@="Open as Visual Studio Website"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\OpenVSWeb\command]

@="devenv.exe /command \\\"Macros.MyMacros.Website.OpenWebsite %1\\\""