re: How to: Retarget a project using DTE

Philip Stears — Tue, 13 Apr 2010 12:09:02 GMT

Thanks for posting this macro - it was very useful. I had to tweak it slightly for my usage because I use solution folders a lot:

Const projectFolder = "{66A26720-8FB5-11D2-AA7E-00C04F688DDE}"

' macro to retarget all C#/VB projects in a solution to .NET Framework 4

Sub SwitchFramework()

Dim v40FrameworkName As FrameworkName = New FrameworkName(".NETFramework", New Version(4, 0))

For Each project As EnvDTE.Project In DTE.Solution.Projects

SwitchFramework_Project(project, v40FrameworkName)

End Sub

Sub SwitchFramework_Project(ByVal project As EnvDTE.Project, ByVal targetFramework As FrameworkName)

If project.Kind = projectFolder Then

' Recurse

For Each projectItem As EnvDTE.ProjectItem In project.ProjectItems

Dim childProject = TryCast(projectItem.Object, EnvDTE.Project)

If childProject IsNot Nothing Then

SwitchFramework_Project(childProject, targetFramework)

End If

ElseIf project.Kind = PrjKind.prjKindCSharpProject OrElse project.Kind = PrjKind.prjKindVBProject Then

' Switch the TFM

project.Properties.Item("TargetFrameworkMoniker").Value = targetFramework.FullName

End If

End Sub