VS 2005 H/CPP 변경 메크로

” Copyright (C) Microsoft Corporation. All rights reserved.
”
” 다음 샘플에서는 VS 자동화 개체 모델을 사용하는 방법을 보여 줍니다.
” 이 샘플에 대한 지원은 제공되지 않지만 참고용으로 사용할 수 있습니다. 이 샘플은
” 명령을 정확하고 완전하게 구현하는 방법을 설명하지는 않습니다. 예를 들어,
” 텍스트를 선택한 다음 명령을 실행해야 하는데 빈 줄에서 매크로를 호출하면
” 매크로의 동작이 정의되지 않습니다.
”

Imports EnvDTE
Imports System
Imports EnvDTE80
Imports System.Diagnostics
Imports Microsoft.Win32

Public Module Swap_H_CPP
  ‘ Swap Header/Source File
  Public Sub SwapPairFile()
       Dim OldFileName As String
       Dim NewFileName As String
       Dim FileExt As String
       Dim Pos As Integer

       OldFileName = Application.ActiveDocument.FullName

       Pos = InStr(1, OldFileName, “.”, CompareMethod.Text)
       If Pos = 0 Then
           Exit Sub
       End If

       FileExt = Right(OldFileName, Len(OldFileName) – Pos)

       If FileExt = “h” Then
           NewFileName = Left(OldFileName, Len(OldFileName) – 2) + “.cpp”
       ElseIf FileExt = “cpp” Then
           NewFileName = Left(OldFileName, Len(OldFileName) – 4) + “.h”
       Else
           Beep()
           Exit Sub
       End If

       Application.DTE.ItemOperations.OpenFile(NewFileName, Constants.vsViewKindCode)
       If (Err.Number <> 0) Then
           MsgBox(Err.Description)
       End If
  End Sub

End Module

어디선거 후려옴…