А>Кажется поняла, почему у меня не происходит апгрейд. Ревизия у меня меняется только в дллках инсталлируемго продукта. В Product Properties у меня стоит Version=1.0.0 без четвертой цифры вообще. Я так написала, потому что не нашла как при каждом билде передавать новый revision number в проект. Не подскажете, как с этим побороться?
Я боролся ВБскриптовым файлом — который открывает как текстовый файл хмл ИнсталлШилда и вставляет в значение Версион намбер новый номер
fname2 — путь к файлу инсталлшилда
versionit — 3 цифра
versionbuild — 4 цифра
iterationXX -Константа с 1 и 2 цифрой
Sub WriteNewVersion (fname2, versionit, versionbuild)
Dim VersionNumber
Dim Line
Dim startPos, endPos
Dim f1, ts, fContent
Dim originalVersion
Dim nCount
Dim text
Line = "<row><td>ProductVersion</td><td>"
Set f1 = fso.GetFile(fName2)
Set ts = f1.OpenAsTextStream(ForReading, TristateUseDefault)
fContent = ts.ReadAll
ts.Close
startPos = InStr(1, fContent, Line, 1)
endPos = InStr(startPos, fContent, "</td><td/></row>" , 1)
startPos = startPos + Len(Line)
result = Mid(fContent, startPos , endPos - startPos)
VersionNumber = iterationXX & versionit & "." & versionbuild
nCount = Len(VersionNumber)
text = Replace(fContent, result, VersionNumber , 1, nCount, 1)
Set f1 = fso.GetFile(fName2)
Set ts = f1.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write(text)
ts.Close
End Sub