HasNext Method

Applies to TestComplete 15.45, last modified on December 01, 2022

Description

Use the HasNext method to find out whether the current object is the last item in the collection or whether there is at least one more object. To obtain the next object, use the Next method.

Declaration

aqObjIteratorObj.HasNext()

aqObjIteratorObj An expression, variable or parameter that specifies a reference to an aqObjIterator object
Result Boolean

Applies To

The method is applied to the following object:

Result Value

True if one more objects follow the current one. False if the current object is the last one in the collection.

Example

The code below obtains the collection of all the drives existing on your computer and posts their size to the test log.

JavaScript, JScript

function ObtainDriveSize()
{

  // Obtains the drives collection
  var DrvCol = aqFileSystem.Drives;
  var Fixed = 3;
  
  while ( DrvCol.HasNext() )
  {
    // Obtains the current drive
    var DrvItem = DrvCol.Next();
    // Obtains the drive letter
    var DrvLet = DrvItem.DriveLetter;
    if (DrvItem.DriveType == Fixed)
    {
      // Obtains the drive size
      var DrvSize = DrvItem.TotalSize;
      // Posts the drive letter and its size to the test log
      Log.Message("Drive " + DrvLet + ": size " + DrvSize);
    }
    else
      Log.Message("Disk " + DrvLet + ": unable to get information about the total space on the specified disk.")
    
  }
    
}

Python

def ObtainDriveSize():
  # Obtains the drives collection
  DrvCol = aqFileSystem.Drives
  Fixed = 3
  while DrvCol.HasNext():
    # Obtains the current drive
    DrvItem = DrvCol.Next()
    # Obtains the drive letter
    DrvLet = DrvItem.DriveLetter
    if DrvItem.DriveType == Fixed:
      # Obtains the drive size
      DrvSize = DrvItem.TotalSize
      # Posts the drive letter and its size to the test log
      Log.Message("Drive " + DrvLet + ": size " + str(DrvSize))
    else:
      Log.Message("Disk " + DrvLet + ": unable to get information about the total space on the specified disk.")

VBScript

Sub ObtainDriveSize
Dim Fixed
  ' Obtains the drives collection
  Set DrvCol = aqFileSystem.Drives
  Fixed = 3
  
  While DrvCol.HasNext
  
    ' Obtains the current drive
    Set DrvItem = DrvCol.Next
    ' Obtains the drive letter
    DrvLet = DrvItem.DriveLetter
    If (DrvItem.DriveType = Fixed) Then
      ' Obtains the drive size
      DrvSize = DrvItem.TotalSize
      ' Posts the drive letter and its size to the test log
      Log.Message "Drive " & DrvLet & ": size " & IntToStr(DrvSize)
    Else
      Log.Message "Disk " & DrvLet & ": unable to get information about the total space on the specified disk."
    End If
    
  WEnd
    
End Sub

DelphiScript

function ObtainDriveSize;
var DrvCol, Fixed, DrvItem, DrvLet, DrvSize;
begin

  // Obtains the drives collection
  DrvCol := aqFileSystem.Drives;
  Fixed := 3;
  
  while ( DrvCol.HasNext() ) do
  begin
    // Obtains the current drive
    DrvItem := DrvCol.Next();
    // Obtains the drive letter
    DrvLet := DrvItem.DriveLetter;
    if (DrvItem.DriveType = Fixed) then
    begin
      // Obtains the drive size
      DrvSize := DrvItem.TotalSize;
      // Posts the drive letter and its size to the test log
      Log.Message('Drive ' + DrvLet + ': size ' + IntToStr(DrvSize) );
    end
    else
      Log.Message('Disk ' + DrvLet + ': unable to get information about the total space on the specified disk.')
    
  end;
    
end;

C++Script, C#Script

function ObtainDriveSize()
{

  // Obtains the drives collection
  var DrvCol = aqFileSystem["Drives"];
  var Fixed = 3;
  
  while ( DrvCol["HasNext"]() )
  {
    // Obtains the current drive
    var DrvItem = DrvCol["Next"]();
    // Obtains the drive letter
    var DrvLet = DrvItem["DriveLetter"];
    if (DrvItem["DriveType"] == Fixed)
    {
      // Obtains the drive size
      var DrvSize = DrvItem["TotalSize"];
      // Posts the drive letter and its size to the test log
      Log["Message"]("Drive " + DrvLet + ": size " + DrvSize);
    }
    else
      Log["Message"]("Disk " + DrvLet + ": unable to get information about the total space on the specified disk.")
    
  }
    
}

See Also

Next Method
Reset Method
Skip Method

Highlight search results