コード ブロック
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics
Imports System.IO
Public Module BuildToolsModule
'ビルドしてテンポラリディレクトリで実行する
Public Sub TempBuildRun()
'プロジェクトをロードしていない状態なら無視する
If canExecute() = False Then Exit Sub
'現在の構成でビルドする
Call buildSolution()
'ビルド結果をテンポラリにコピーする
Dim executeTempFile As String = copyOutputFileToTemp(True)
'テンポラリの実行ファイルを起動する
Call executeFile(executeTempFile)
End Sub
'ビルドしてテンポラリディレクトリへコピーする
Public Sub TempBuild()
'プロジェクトをロードしていない状態なら無視する
If canExecute() = False Then Exit Sub
'現在の構成でビルドする
Call buildSolution()
'ビルド結果をテンポラリにコピーする
Dim executeTempFile As String = copyOutputFileToTemp(True)
End Sub
'テンポラリディレクトリの実行ファイルを実行する
Public Sub TempRun()
'プロジェクトをロードしていない状態なら無視する
If canExecute() = False Then Exit Sub
'ビルド結果をテンポラリにコピーした際のパスを取得する（コピーはしない）
Dim executeTempFile As String = copyOutputFileToTemp(False)
'テンポラリの実行ファイルを起動する
Call executeFile(executeTempFile)
End Sub
'実行できるかチェック
Private Function canExecute() As Boolean
'ソリューションがロードされていなければ実行できない
If DTE.Solution.Count = 0 Then Return False
'チェックに引っかからなければ実行できる
Return True
End Function
'ソリューションをビルドする
Private Sub buildSolution()
'現在の構成でビルドする
DTE.Solution.SolutionBuild.Build(True)
End Sub
'スタートアッププロジェクトのビルドファイルをコピーする
Private Function copyOutputFileToTemp(ByVal actualCopy As Boolean) As String
'スタートアッププロジェクト情報を取得
Dim startupProjectName As String = DTE.Solution.SolutionBuild.StartupProjects(0)
Dim startupProject As EnvDTE.Project = DTE.Solution.Projects.Item(startupProjectName)
Dim startupProjectPath As String = startupProject.FullName
Dim startupProjectDir As String = System.IO.Path.GetDirectoryName(startupProjectPath)
'実行ファイルの出力先情報を取得
Dim outputFileName As String = startupProject.Properties.Item("OutputFileName").Value
Dim outputFileDir As String = startupProject.ConfigurationManager.ActiveConfiguration.Properties.Item("OutputPath").Value
'コピー元・コピー先ディレクトリを取得
Dim executeDir = Path.Combine(startupProjectDir, outputFileDir)
Dim executeTempDir = Path.Combine(Path.Combine(startupProjectDir, "Temp"), outputFileDir)
'ディレクトリごとコピーする
If (actualCopy) Then
My.Computer.FileSystem.CopyDirectory(executeDir, executeTempDir, True)
End If
'テンポラリの実行ファイル名を復帰
Return Path.Combine(executeTempDir, outputFileName)
End Function
'ファイルを実行する
Private Sub executeFile(ByVal filePath As String)
'テンポラリの実行ファイルを起動する
Call Shell(filePath, AppWinStyle.NormalFocus, False)
End Sub
End Module
