Sample program using the new _Files$ function

[eoredson]

What is really needed is UDT arrays such as:

Code: (Select All)

Type Struct1
  A(1 to 10) As Integer
  B(1 to 10) As Single
End Type

Type Struct2
  T(1 to 10) As Struct1
End Type

Dim StructX As Struct1
Dim StructY As Struct2

StructX.A(10) = -1
Print StructX.A(10)

StructY.T(10).A(10) = -1
Print StructY.T(10).A(10)
End