Using flb As New FolderBrowserDialog If flb.ShowDialog() = Windows.Forms.DialogResult.OK Then ListBox1.Items.Clear() TextBox1.Text = flb.SelectedPath Dim fileNames As String() = Directory.GetFiles(flb.SelectedPath) Dim selectedFiles As String() = From fileName In fileNames Where fileName.EndsWith(".rtf") Or fileName.EndsWith(".doc") Select fileName For Each filename In selectedFiles ListBox1.Items.Add(filename) Next End If End Using
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)