[baldurgarda2]

Mit For Each klappt das so nicht ;-) Bei dieser Schleife hat du keinen Zugriff auf den Interator ...

Besser du verwendest
Dim i As Integer = 0
While i < arrDateiliste.lenght
if
arrDateilist(i)
i += 1
else
i = i - 1
end if
End While