arrays

Jeg har en funktion som leder efter filer. Det returnerer et array af strenge og på plads 0 i dette array står antallet af strenge der er fundet.

Mit problem er at jeg skal lægge flere af disse arrays sammen i et array med samme format. (antallet af strenge skal stå på plads 0)

Jeg fucker lidt i mine redim kald osv. derfor vil jeg gerne høre hvad man ellers kan gøre.



eksempelkode:

Dim searchpath  As Integer
        searchpath = FreeFile
        Open "searchpath.txt" For Binary As searchpath
       
        Do While Not EOF(searchpath)
              Dim tempvar As String
              Line Input #searchpath, tempvar
              Debug.Print tempvar
              ret = Find.Search(tempvar, "*.doc") 'get array of doc files. address 0 indicates hitcount
             
              ReDim Preserve accret(accret(0) + ret(0))
             
              Dim mx As Integer
              For mx = 1 To ret(0) Step 1
                    accret(accret(0) + mx) = ret(mx)
              Next mx
              accret(0) = UBound(accret)
             
        Loop
        Close searchpath


jeg får også en fejl med at filen har nået EOF ?!! det synes jeg geh tjeckker på allerede?