'Liste der Dateien (Pfade)
Dim myFilenames As New List(Of String)
With myFilenames
    .Add(<filename1>)
    .Add(<filename2>)
    .Add(<filename3>)
End With
 
'Liste zur Aufnahme der Referenzen auf die Dateistreams
Dim myFileStreams As New List(Of IO.FileStream)
 
With myFileStreams
    Try
       'alle Datei-Streams öffnen und auflisten
       For Each filename As String In myFilenames
          .Add(New IO.FileStream(filename, IO.FileMode.Open, _
            IO.FileAccess.Read))
       Next filename
 
       'Beispiel für indizierten Dateizugriff: Inhalte der Dateien lesen
       For i As Integer = 0 To .Count - 1
          Dim lg As Integer = CInt(.Item(i).Length)
          If lg > 0 Then
            Dim bytes(CInt(lg) - 1) As Byte
            .Item(i).Read(bytes, 0, lg) 
          End If
       Next i
 
    Catch
       'was auch immer im Fehlerfall passieren soll: hier einfügen
    Finally
       'Nach Abschluss der Operationen oder nach einem Fehler
       '--> alle Streams schließen und die Liste der Streams leeren
       For i As Integer = .Count - 1 To 0 Step -1
          If .Item(i) IsNot Nothing Then
             .Item(i).Close() 'ruft Dispose auf (Resourcenfreigabe)
             .Item(i) = Nothing                
          End If
          .RemoveAt(i)  'Item aus Liste entfernen
       Next i       
    End Try
End With