Open Partner File

Imports EnvDTE
Imports System.Diagnostics

Public Module OpenPartnerFile

    ' if this file is a .cpp then open up the .h
    '     or vice versa
    Sub OpenPartnerFile()
        Dim FileName As String
        Dim PartnerFileName As String
        FileName = DTE.ActiveDocument.FullName
        If (FileName.EndsWith(".h")) Then
            PartnerFileName 
			= FileName.Substring(0, FileName.Length() - 2) + ".cpp"
        End If
        If (FileName.EndsWith(".cpp")) Then
            PartnerFileName 
			= FileName.Substring(0, FileName.Length() - 4) + ".h"
        End If
        DTE.ItemOperations.OpenFile(PartnerFileName)
    End Sub
End Module

• 기능 : Open Partner File (*.h ↔ *.cpp 파일로 교체)
• 사용법 
• 위의 코드를 매크로로 작성한다. (단축키 Alt + ~)
• 해당 매크로를 VC 단축키로 등록한다. 
• 단축키를 눌러 확인해본다.