Switch between Header and CPP File for Visual Studio .NET

��

Option Strict Off

Option Explicit Off



Imports EnvDTE

Imports Microsoft.VisualBasic





Public Module Switch



    Sub Switch()

        '////////////////////////////////////////////

        'Nooruddin Kapasi 1998.

        'Pavel Sokolov , CEZEO software , http://www.cezeo.com , Adaptation for .NET

        'DESCRIPTION: Switch Between Header and cpp

        '////////////////////////////////////////////

        Dim a As String

        Dim b As String

        Dim Flag As Integer

        Flag = 0

        a = DTE.ActiveDocument.FullName()

        tmp = InStr(a, ".cpp")

        If tmp Then

            b = Left(a, Len(a) - 3) + "h"

            Flag = 1

        Else

            tmp = InStr(a, ".h")

            If tmp Then

                b = Left(a, Len(a) - 1) + "cpp"

                Flag = 1

            End If

        End If



        If Flag Then

            DTE.Documents.Open(b, "Text")

        End If

    End Sub





End Module