Auto add Version Resource in vcproj

If you open an rc file with the text editor, you can see how a version info block is inserted; you can refer to VERSIONINFO Resource (Windows)[^] on the MSDN for the full syntax.

Said that you can write a macro for Visual Studio that look at the rc file of your project, searches for the VERSIONINFO inside it, and if it doesn't exist the macro will add a standard one.

Thanks for answer, but you don't understand my problem.

Visual Studio creates (.rc) files after we add resource. I know how to edit this file, even for all projects but when this files exist.

The problem is that i want to create rc file for every project at once. I don't want to click at every project manually.

When adding a rc file to an empty dll project, VC will generate a filename.rc file and two files automatically: resource.h and filename.aps.

Here is the info about files: http://msdn.microsoft.com/en-us/library/fywbdhak%28VS.71%29.aspx[^]

So, I want to add rc file automatically for all projects.

I tried to write some macro for VS, but i'm only able to launch the AddResource dialog for ech project:

DTE.ExecuteCommand("Project.AddResource")

Any suggestion?

I found this searching on the MSDN and I think it could be a good starting point for your task:

How to: Programmatically Create Project Items[^]

Hi, thanks but it is very hard to use that.

I have wrote some macro. Fortunately when we launch a dialog the files are genereted, and only what i have to do is to close dialog for every project (with esc). It's faster but it is not a good way to solve this problem.

If you know how to do this, out of the VS, let me know.

Macro (for selected projects, it depends if we have projects in folders or not):

Imports System
Imports System.IO
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics
Imports Microsoft.VisualStudio

Public Module Module1


    Sub Macro1()

        Dim name As String
        Dim solutionName As String
        Dim subfolderName As String

        Dim count As Int16
        count = 0

        name = DTE.Solution.FullName
        solutionName = Path.GetFileNameWithoutExtension(name)

        Dim projects As Object
        projects = DTE.ActiveSolutionProjects


        For Each proj As Project In projects

            If (count <= 0) Then
                subfolderName = proj.Name

            End If

            If (count > 0) Then

                DTE.ActiveWindow.Object.GetItem(solutionName + "\" + subfolderName + "\" + proj.Name).Select(vsUISelectionType.vsUISelectionTypeSelect)
                DTE.ExecuteCommand("Project.AddResource")
            End If
            count = count + 1

        Next

    End Sub
End Module