右键菜单快速打开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\\\""