1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Dim oVersionResource As New VersionResource()
oVersionResource.LoadFrom(sPath)
oVersionResource.FileVersion = numFileVersion_1.Value & "." & numFileVersion_2.Value & "." & numFileVersion_3.Value & "." & numFileVersion_4.Value
oVersionResource.ProductVersion = numVersion_1.Value & "." & numVersion_2.Value & "." & numVersion_3.Value & "." & numVersion_4.Value
Dim oStringFileInfo As StringFileInfo = DirectCast(oVersionResource("StringFileInfo"), StringFileInfo)
oStringFileInfo("InternalName") = String.Format("{0}" & vbNullChar, txtFileName.Text.Trim)
oStringFileInfo("OriginalFilename") = String.Format("{0}" & vbNullChar, txtFileName.Text.Trim)
oStringFileInfo("FileVersion") = String.Format("{0}" & vbNullChar, oVersionResource.FileVersion)
oStringFileInfo("ProductVersion") = String.Format("{0}" & vbNullChar, oVersionResource.ProductVersion)
oStringFileInfo("Assembly Version") = String.Format("{0}" & vbNullChar, oVersionResource.ProductVersion)
oStringFileInfo("LegalCopyright") = String.Format("{0}" & vbNullChar, txtACopyright.Text.Trim)
oStringFileInfo("FileDescription") = String.Format("{0}" & vbNullChar, txtADescription.Text.Trim)
oVersionResource.SaveTo(sPath) |
Partager