Как получить номер версии Visual Studio, создавшей приложение

Вы можете получить его из стандартного вывода vswhere.exe

Dim proc = New Process() With
{
    .StartInfo = New ProcessStartInfo() With
    {
        .FileName = "C:\Program Files (x86)\Microsoft Visual Studio\Installer\vswhere.exe",
        .UseShellExecute = False,
        .RedirectStandardOutput = True,
        .CreateNoWindow = True
    }
}
Dim lines = New Dictionary(Of String, String)()
proc.Start()
While Not proc.StandardOutput.EndOfStream
    Dim line = proc.StandardOutput.ReadLine()
    If line.Contains(": ") Then
        Dim split = line.Split(": ", StringSplitOptions.None)
        lines.Add(split(0), split(1))
    End If
End While
Dim installationVersion = lines("installationVersion")

путем объединения этот ответ и этот пост MSDN Дэниела Мейкснера.

Я надеюсь, это поможет

internal static string GetVisualStudioInstalledPath()
{
    var visualStudioInstalledPath = string.Empty;
    var visualStudioRegistryPath = Registry.LocalMachine.OpenSubKey(
                                   @"SOFTWARE\WOW6432Node\Microsoft\VisualStudio\14.0");
    if (visualStudioRegistryPath != null)
    {
        visualStudioInstalledPath = visualStudioRegistryPath.GetValue("InstallDir", string.Empty) 
                                                                      as string;
    }

    if (string.IsNullOrEmpty(visualStudioInstalledPath) || 
                            !Directory.Exists(visualStudioInstalledPath))
    {
        visualStudioRegistryPath = Registry.LocalMachine.OpenSubKey(
                                   @"SOFTWARE\Microsoft\VisualStudio\14.0");
        if (visualStudioRegistryPath != null)
        {
            visualStudioInstalledPath = visualStudioRegistryPath.GetValue("InstallDir", 
                                                                          string.Empty) as string;
        }
    }

    if (string.IsNullOrEmpty(visualStudioInstalledPath) || 
                             !Directory.Exists(visualStudioInstalledPath))
    {
        visualStudioRegistryPath = Registry.LocalMachine.OpenSubKey(
                                   @"SOFTWARE\WOW6432Node\Microsoft\VisualStudio\12.0");
        if (visualStudioRegistryPath != null)
        {
            visualStudioInstalledPath = visualStudioRegistryPath.GetValue("InstallDir", 
                                                                          string.Empty) as string;
        }
    }

    if (string.IsNullOrEmpty(visualStudioInstalledPath) || 
                             !Directory.Exists(visualStudioInstalledPath))
    {
        visualStudioRegistryPath = Registry.LocalMachine.OpenSubKey(
                                   @"SOFTWARE\Microsoft\VisualStudio\12.0");
        if (visualStudioRegistryPath != null)
        {
            visualStudioInstalledPath = visualStudioRegistryPath.GetValue("InstallDir", 
                                                                          string.Empty) as string;
        }
    }

    return visualStudioInstalledPath;
}

Целевая версия платформы и версия Visual Studio доступны во время операции сборки как Свойства MSBuild как определенные или зарезервированные свойства. Эти свойства можно сделать доступными для использования в текстовом шаблоне T4 для генерации кода.

Следующая процедура основана на VS2017 Community Edition.

1. Добавьте Текстовый шаблон в свой проект. Меню проекта-> Добавить новый элемент -> Общие -> Текстовый шаблон. Назовите файл ProjectInfo.tt.
2. В окне Обозреватель решений выберите ProjectInfo.tt и щелкните по нему правой кнопкой мыши и выберите «Свойства». Измените «Сборка Действие» с Содержание на Никто.
3. Замените содержимое ProjectInfo.tt следующим и сохраните файл. Вы получите сообщение об ошибке «Блок выражения оценивается как Null", игнорируйте его.

<#@ template debug = "false" hostspecific = "true" language = "VB" #>
<#@ parameter type = "System.String" name = "VisualStudioVersion" #>
<#@ parameter type = "System.String" name = "TargetFrameworkVersion" #>
<#@ assembly name = "System.Core" #>
<#@ output extension = ".vb" #>
Module ProjectInfo
    Public ReadOnly VisualStudioVersion As String = "<#= VisualStudioVersion #>"
    Public ReadOnly TargetFrameworkVersion As String = "<#= TargetFrameworkVersion #>"
    Public ReadOnly BuildDate As New DateTime(<#= DateTime.Now().Ticks #>L)
End Module

4. Сохраните проект, выберите его в окне Обозреватель решений и щелкните правой кнопкой мыши. в теме. Выберите «Выгрузить проект». Щелкните правой кнопкой мыши еще раз и выберите "Редактировать имя проекта.vbproj".
5. Прокрутите вниз до конца файла, добавьте следующее перед "" ярлык.

  <!-- Define the parameters available T4 Text templates  -->
  <ItemGroup>
    <T4ParameterValues Include = "VisualStudioVersion">
      <Value>$(VisualStudioVersion)</Value>
      <Visible>false</Visible>
    </T4ParameterValues>
    <T4ParameterValues Include = "TargetFrameworkVersion">
      <Value>$(TargetFrameworkVersion)</Value>
      <Visible>false</Visible>
    </T4ParameterValues>
  </ItemGroup>

  <!-- the following will cause the T4 template to be processed before the build process begins  -->
  <Import Project = "$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)\TextTemplating\Microsoft.TextTemplating.targets" />
  <PropertyGroup>
    <TransformOnBuild>true</TransformOnBuild>
    <TransformOutOfDateOnly>false</TransformOutOfDateOnly>
  </PropertyGroup>

6. Сохраните и закройте файл «vbproj». Щелкните правой кнопкой мыши проект в окне Обозреватель решений и выберите "Обновить проект".
7. Щелкните правой кнопкой мыши проект в окне Обозреватель решений и выберите «Перестроить проект».
8. В окне Обозреватель решений включите «Показать все файлы», разверните узел «ProjectInfo.tt» и откройте файл «ProjectInfo.vb». вы должны увидеть следующий код (назначенные значения могут отличаться в зависимости от конфигурации вашего проекта).

Module ProjectInfo
    Public ReadOnly VisualStudioVersion As String = "15.0"
    Public ReadOnly TargetFrameworkVersion As String = "v4.72"
    Public ReadOnly BuildDate As New DateTime(636968364980609475L)
End Module

После того, как вы успешно создадите свой проект, значения, определенные в "ProjectInfo.vb", будут доступны для другого кода. Файл будет регенерироваться при каждой сборке.

Справочные статьи:

1. Генерация кода и текст T4 Шаблоны

2. Передайте данные контекста сборки в шаблоны

Редактировать: В качестве альтернативы редактированию файла имя проекта.vbproj вы также можете поместить операторы, представленные на шаге 5, в текстовый файл с именем Directory.Build.targets, который будет находиться в папке проекта. Содержимое должно быть заключено в тег <Project>.

<Project>
statements from Step 5
</Project>