Visual Basic

' Parent Form<br />
    Private Sub ShowSrch()<br />
        srchDt = New SearchForm(mainCon)<br />
        srchDt.TopLevel = False<br />
        srchDt.Parent = Me<br />
        srchDt.SetBounds(0, 30, srchDt.Width(), srchDt.Height())<br />
        srchDt.Show()<br />
    End Sub<br />
    Public Sub SetSearchedDs(ByVal sds As DataSet)<br />
        Me.searchedDs = sds<br />
    End Sub

Me.TransactionTableTableAdapter.Fill(Me.MyTestDataSet.TransactionTable) 
 Me.newDataGrid.Refresh()

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click<br />
        lblStatus.Text = "Scanning Please Wait....."<br />
        Application.DoEvents()<br />
        Dim enteredFilePaths As String() = My.Settings.Path.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 dv As DataView = dt.DefaultView<br />
        Dim i As Integer<br />
<br />
        For Each path As String In enteredFilePaths<br />
            Dim strFilter As String = "ExcludePath LIKE '" & path & "%' AND (ExcludeFileName LIKE '%" & patterns(0) & "'"<br />
            For int As Integer = 1 To patterns.GetUpperBound(0)<br />
                strFilter += " OR ExcludeFileName LIKE '%" & patterns(int) & "'"<br />
            Next<br />
            strFilter += ")"<br />
            dv.RowFilter = strFilter<br />
            dv.Sort = "ExcludePath ASC"<br />
            For i = 0 To dv.Count - 1<br />
                Me.ListBox2.Items.Add(dv(i)("ExcludeFileName"))<br />
            Next i<br />
        Next<br />
<br />
        Dim fileName As String<br />
        patterns = Array.ConvertAll(patterns, New Converter(Of String, String)(AddressOf ConvertFilters))<br />
        ListBox1.BeginUpdate()<br />
        ListBox1.Items.Clear()<br />
        Dim RootDirs As New List(Of String)<br />
        'Check to see if there there are any Root Directory path in Textbox1 string<br />
        For idx As Integer = 0 To enteredFilePaths.Length - 1<br />
            'Bypass the drive letter so that any drive can be used<br />
            If enteredFilePaths(idx).Substring(1).Trim = ":\" Then<br />
                'Get all the root folders<br />
                Dim RootFolders As New System.IO.DirectoryInfo(enteredFilePaths(idx))<br />
                'Add all the foilers to the RootDirs array list<br />
                For Each dir As System.IO.DirectoryInfo In RootFolders.GetDirectories()<br />
                    RootDirs.Add(dir.FullName)<br />
                Next<br />
      'Continue at the top of the For loop so that we do not add the root path back into the list<br />
                Continue For<br />
            End If<br />
            'The path was not a root folder so add it to the list<br />
            RootDirs.Add(enteredFilePaths(idx))<br />
        Next<br />
        'Resize your string array to the size needed to add the new paths<br />
        ReDim enteredFilePaths(RootDirs.Count - 1)<br />
        'Copy the RootDirs List of path to the folders array.<br />
        RootDirs.CopyTo(enteredFilePaths)<br />
        For Each folder As String In enteredFilePaths<br />
            Try<br />
                For Each file As String In My.Computer.FileSystem.GetFiles(folder, FileIO.SearchOption.SearchAllSubDirectories, patterns)<br />
                    fileName = System.IO.Path.GetFileName(file).ToLower<br />
                    If ListBox2.FindStringExact(fileName) = -1 Then<br />
                        ListBox1.Items.Add(fileName)<br />
                    End If<br />
                Next<br />
            Catch ex As UnauthorizedAccessException<br />
            End Try<br />
        Next<br />
        ListBox1.EndUpdate()<br />
        lblStatus.Text = "Scan Complete!!!"<br />
    End Sub<br />
<br />
Private Function ConvertFilters(ByVal filter As String) As String<br />
        Return "*." & filter<br />
End Function<br />
<br />
Public Function GetConnectionString() As String<br />
        'Create a datatable to store data.<br />
        dt = New DataTable("tblExclude")<br />
        Dim colExFileID As New DataColumn("ExcludeID")<br />
        Dim colExFilePath As New DataColumn("ExcludePath")<br />
        Dim colExFileName As New DataColumn("ExcludeFileName")<br />
        dt.Columns.AddRange(New DataColumn() {colExFileID, colExFilePath, colExFileName})<br />
        Dim myconnString As String = My.Settings.ConnectionString<br />
        'Replace the {0} with the value from StartUpPath.<br />
        Dim myConnection As New OleDbConnection(myconnString)<br />
        Dim strSQL As String = "SELECT * FROM tblExclude"<br />
        Dim dAdapter As New OleDbDataAdapter()<br />
        Return String.Format(myconnString, Path.Combine(Application.StartupPath, "File.mdb"))<br />
        myConnection.Open()<br />
        dAdapter.SelectCommand = New OleDbCommand(strSQL, myConnection)<br />
         dAdapter.Fill(dt)<br />
        myConnection.Close()<br />
    End Function<br />
<br />
Private Sub SearchFileForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        GetConnectionString()<br />
End Sub