Sub SolutionExample()
'This function creates a solution and adds a Visual Basic .NET Console
'project to it.
Dim soln As Solution
Dim proj As Project
Dim msg As String
'Create a reference to the solution.
soln = DTE.Solution
' Create a new solution.
soln.Create("c:\temp2", "MyNewSolution")
' Create a new VB Console application project. Adjust the save path as
'needed.
proj = soln.AddFromTemplate("D:\Program Files\Microsoft Visual Studio .NET\Vb7\VBWizards\ConsoleApplication\Templates\1033\ConsoleApplication.vbproj", "c:\temp2", "My New Project", True)
' Save the new solution and project.
soln.SaveAs("c:\temp2\newsolution.sln")
msg = "Created new solution: " & soln.FullName & vbCrLf
msg = msg & "Created new project: " & proj.Name
MsgBox(msg)
End Sub