BLACK JACK

Get busy living, or get busy dying.
posts - 24, comments - 199, trackbacks - 30, articles - 3

导航

公告

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

Posted on 2006-10-28 01:18 J. Lin 阅读(...) 评论(...) 编辑 收藏
这个是很久以前就在用的,今天突然发觉家里的机器上居然没装。一下忘了怎么弄,搞了半天才搞好。特此记录背忘。

实现效果:在文件夹上右键,选择“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) = 0Then

            
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\\\""