Visual Basic

'Get the entered file paths and patterns<br />
        Dim enteredFilePaths As String() = TextBox1.Text.Split(New String() {";"}, StringSplitOptions.RemoveEmptyEntries)<br />
        Dim patterns As String() = TextBox2.Text.Split(New String() {";"}, StringSplitOptions.RemoveEmptyEntries)<br />
<br />
        'Declare a string array to store the file paths that are not found in the database<br />
        Dim filePaths() As String = Nothing<br />
        Dim dv As DataView = dt.DefaultView<br />
        dv.Sort = "ExcludePath ASC"<br />
<br />
        For Each path As String In enteredFilePaths<br />
<br />
            'Check to make sure the file path does not have "\" as it's last character.<br />
            If path.LastIndexOf("\") = path.Length - 1 Then<br />
                path = path.Substring(0, path.Length - 1)<br />
            End If<br />
<br />
            Dim rows As DataRowView() = dv.FindRows(path)<br />
<br />
            If rows.Length > 0 Then<br />
<br />
                'Only add the file if it is one of the entered extensions.<br />
                For Each row As DataRowView In rows<br />
                    If ListBox2.Items.Contains(row.Item("ExcludeFileName")) Then<br />
<br />
                    End If<br />
<br />
                    Dim ext As String = System.IO.Path.GetExtension(row.Item("ExcludeFileName").ToString).Replace(".", "")<br />
                    If Me.TextBox2.Text.IndexOf(ext, 0, StringComparison.CurrentCultureIgnoreCase) > -1 Then<br />
<br />
                        'It was found in the database, display it in the listbox.<br />
                        Me.ListBox2.Items.Add(row.Item("ExcludeFileName"))<br />
                    End If<br />
                Next<br />
            Else<br />
                'It was not found in the database<br />
                Dim i2 As Integer = 0<br />
                If Not filePaths Is Nothing Then<br />
                    i2 = UBound(filePaths) + 1<br />
                End If<br />
<br />
                'Resize the array<br />
                ReDim filePaths(i2)<br />
<br />
                'Add the path to the array<br />
                filePaths(i2) = path<br />
                End If<br />
<br />
        Next<br />
        GetDirectoryContents(enteredFilePaths, patterns)<br />
        <br />
    End Sub<br />
<br />
    Private Sub GetDirectoryContents(ByVal dirs() As String, ByVal patterns() As String)<br />
        'Declare variable.<br />
        Dim dDir As DirectoryInfo<br />
<br />
        'Search directory for files and add to the listbox.<br />
        For Each sDir As String In dirs<br />
            If Not Directory.Exists(sDir) Then Continue For<br />
            dDir = New DirectoryInfo(sDir)<br />
            For Each ext As String In patterns<br />
                For Each fi As FileInfo In dDir.GetFileSystemInfos("*." & ext)<br />
                    ListBox1.Items.Add(fi.Name)<br />
                Next<br />
            Next<br />
        Next<br />
    End Sub