This macro opens up the current visual studio project's folder in Explorer.   

Public Sub OpenExplorer()

       Dim currentSlnFolder As String

       currentSlnFolder = DTE.Solution.FullName
       REM currentSlnFolder = DTE.ActiveDocument.Path
       If (String.IsNullOrEmpty(currentSlnFolder)) Then

           Return
       End If

       Debug.Print(currentSlnFolder)
       Dim lastpos = currentSlnFolder.LastIndexOf("\")
       currentSlnFolder = """" + currentSlnFolder.Substring(0, lastpos) + """"
       Shell("explorer.exe " + currentSlnFolder, AppWinStyle.NormalFocus, False, -1)
   End Sub