You can wrap the array extension up into a simple UDF, which makes it a bit tidier:


$MyArray=ExtendArray($MyArray,"One")
$MyArray=ExtendArray($MyArray,"two")
$MyArray=ExtendArray($MyArray,"three")

For Each $s In $MyArray
        "Array element is: "+$s+@CRLF
Next

Function ExtendArray($a,$v)
        Redim Preserve $a[UBound($a)+1]
        $a[UBound($a)]=$v
        $ExtendArray=$a
EndFunction