CodePage Property

Applies to TestComplete 14.72, last modified on December 24, 2020


A file can contain multiple version information blocks translated in different languages. The CodePage property lets you get the code page identifier of a particular version information block. To get the language of the appropriate version information translation, use the Language property.



Read-Only Property Integer
aqFileVersionInfoObj An expression, variable or parameter that specifies a reference to an aqFileVersionInfo object
Index [in]    Optional    Integer Default value: 0   

Applies To

The property is applied to the following object:


The property has the following parameter:


A zero-based index of the desired version information block. Default is 0. To get the total number of version information translations in the file, use the Languages property.

Property Value

The code page identifier of the specified version information block. For example, 1252 stands for Windows ANSI code page. For a full list of available identifiers, see the Code Page Identifiers article in the MSDN library.


If you use Python or DelphiScript, you should enclose the parameter of the CodePage property in square brackets: CodePage[Index].


The following example posts information about Notepad’s version information translations to the test log:

JavaScript, JScript

function VersionInfoSample()
  var FileName = Sys.OSInfo.WindowsDirectory + "\\notepad.exe";
  var VerInfo = aqFileSystem.GetFileInfo(FileName).VersionInfo;

  for (var i = 0; i < VerInfo.Languages; i++)
    Log.Message("Language: " + VerInfo.Language(i) + ", Code page: " + VerInfo.CodePage(i));
  Log.Message("Total number of languages: " + VerInfo.Languages);


def VersionInfoSample():
  FileName = Sys.OSInfo.WindowsDirectory + "\\notepad.exe"
  VerInfo = aqFileSystem.GetFileInfo(FileName).VersionInfo
  for i in range(0, VerInfo.Languages):
    Log.Message("Language: " + VerInfo.Language[i] + ", Code page: " + str(VerInfo.CodePage[i]))
  Log.Message("Total number of languages: " + str(VerInfo.Languages))


Sub VersionInfoSample
  Dim FileName, VerInfo, i

  FileName = Sys.OSInfo.WindowsDirectory & "\notepad.exe"
  Set VerInfo = aqFileSystem.GetFileInfo(FileName).VersionInfo

  For i = 0 To VerInfo.Languages - 1
    Log.Message "Language: " & VerInfo.Language(i) & ", Code page: " & VerInfo.CodePage(i)
  Log.Message "Total number of languages: " & VerInfo.Languages
End Sub


procedure VersionInfoSample;
var FileName, VerInfo, i;
  FileName := Sys.OSInfo.WindowsDirectory + '\notepad.exe';
  VerInfo := aqFileSystem.GetFileInfo(FileName).VersionInfo;

  for i := 0 to VerInfo.Languages - 1 do
    Log.Message('Language: ' + VerInfo.Language[i] + ', Code page: ' + VerToStr(VerInfo.CodePage[i]));
  Log.Message('Total number of languages: ' + VarToStr(VerInfo.Languages));

C++Script, C#Script

function VersionInfoSample()
  var FileName = Sys["OSInfo"]["WindowsDirectory"] + "\\notepad.exe";
  var VerInfo = aqFileSystem["GetFileInfo"](FileName)["VersionInfo"];

  for (var i = 0; i < VerInfo["Languages"]; i++)
    Log["Message"]("Language: " + VerInfo["Language"](i) + ", Code page: " + VerInfo["CodePage"](i));
  Log["Message"]("Total number of languages: " + VerInfo["Languages"]);

See Also

Language Property
Languages Property

Highlight search results