Option Explicit
Private Content() As cIsaNode
Private bBuf() As Byte
___________________________________________
 
Public Function LoadFile(File As String) As Boolean
 
If Not OpenFile(File) Then Exit Function 'Lädt den Inhalt in bBuf()
 
(Verarbeitung) 'Verarbeitet den Syntax und schreibt in Content()
 
Erase bBuf() 'Wird nicht mehr benötigt
 
End Function
___________________________________________
 
Public Function Browse(Optional Path As String) As String 'Fragt den Syntax ab
(...)
End Function
___________________________________________
 
Private Sub Class_Terminate()
 
Dim n As Long
 
For n = 0 To UBound(Content)
    Set Content(n) = Nothing
Next
 
Erase Content
ReDim Content(0)
 
End Sub

Public sValue As String
Public bKey As Integer
Public iChilds As Integer
Public iParent As Long
Public iLevel As Long
Public bOpen As Boolean

Dim cISA as cSimIsa
 
sDir = Dir(sPath, vbDirectory)
 
Do While sDir <> ""
 
    If sDir <> "." And sDir <> ".." Then
 
        Set cISA = New cSimIsa
        If cISA.LoadFile(sPath & sDir & "\" & sDir & ".trk") Then
            sName = cISA.Browse("Tr_RouteFile/Name")
            If sName <> "" Then
                ReDim Preserve Routes(iZ)
                ReDim Preserve RouteNames(iZ)
 
                Routes(iZ) = sDir
                RouteNames(iZ) = sName
 
                iZ = iZ + 1
            End If
        End If
        Set cISA = Nothing
 
    End If
 
    sDir = Dir()
 
    DoEvents
 
Loop