Open Folder In Explorer VSMacro

    Public Sub OpenFolderInExplorer()
        Try
            If (ValidateWindow()) Then
                DTE.ExecuteCommand("File.OpenContainingFolder")
                Return

            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
     End Sub

    Public Sub OpenProjectInExplorer()
        'Dim solution As Solution2 = DTE.Solution
        Try
            DTE.ExecuteCommand("Project.OpenFolderinWindowsExplorer")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub