Private Sub HinzuDateien(ByRef ret As List(Of String), ByVal Filter As _
    String, ByVal Verzeichniss As String)
    Dim res() As String
    res = System.IO.Directory.GetFiles(Verzeichniss, Filter, _
      IO.SearchOption.TopDirectoryOnly)
    For i As Integer = 0 To res.Length - 1
      ret.Add(res(i))
    Next
  End Sub

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7