Description

Use the Comments property to get the comments associated with the file.

Declaration

aqFileVersionInfoObj.Comments(Index)

Read-Only Property

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:

aqFileVersionInfo

Parameters

The property has the following parameter:

Index

A file can contain multiple version information blocks translated in different languages. This parameter specifies a zero-based index of the desired version information translation, among those included in the file. The default value is 0, which means the default version information block. To get the total number of version information translations in a file, use the Languages property.

Property Value

A string that contains additional information about the file.

Remarks

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

Example

The sample script below obtains additional information about Notepad:

JavaScript, JScript

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

  Log.Message("Description: " + VerInfo.FileDescription);
  Log.Message("Comments: " + VerInfo.Comments);
  Log.Message("Company: " + VerInfo.CompanyName);
}

Python

def FileVersionInfoSample():
  FileName = Sys.OSInfo.WindowsDirectory + "\\notepad.exe"
  VerInfo = aqFileSystem.GetFileInfo(FileName).VersionInfo
  Log.Message("Description: " + str(VerInfo.FileDescription[0]))
  Log.Message("Comments: " + str(VerInfo.Comments[0]))
  Log.Message("Company: " + str(VerInfo.CompanyName[0]))

VBScript

Sub FileVersionInfoSample
  Dim FileName, VerInfo

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

  Log.Message "Description: " & VerInfo.FileDescription
  Log.Message "Comments: " & VerInfo.Comments
  Log.Message "Company: " & VerInfo.CompanyName
End Sub

DelphiScript

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

  Log.Message('Description: ' + VerInfo.FileDescription);
  Log.Message('Product: ' + VerInfo.ProductName);
  Log.Message('Company: ' + VerInfo.CompanyName);
end;