' Only get files that begin with the letter "c."
        Dim dirs As String() = Directory.GetFiles("c:\", "c*")
        Console.WriteLine("The number of files starting with c is {0}.", _
          dirs.Length)
        Dim dir As String
        For Each dir In dirs
            ListBox1.Items.Add(dir)
        Next

Mit freundlichen Gr??en

Peter