Visual Basic

Private Sub GetDirectoryContents(ByVal dirs() As String, ByVal patterns() As String)<br />
        'Declare variable.<br />
        Dim dDir As DirectoryInfo<br />
<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

Private Sub SearchDatabase()<br />
<br />
        Dim myConnString As String = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Application.StartupPath & "\File.mdb"<br />
        Dim myConnection As New OleDbConnection(myConnString)<br />
        myConnection.Open()<br />
        Dim strSQL As String = "SELECT ExcludeFileName FROM tblExclude"<br />
        Dim cmd As OleDbCommand = New OleDbCommand(strSQL, myConnection)<br />
        Dim objread As OleDbDataReader<br />
        objread = cmd.ExecuteReader<br />
<br />
        While objread.Read<br />
            Me.ListBox2.Items.Add(objread("ExcludeFileName") & "")<br />
        End While<br />
        objread.Close()<br />
        myConnection.Close()<br />
<br />
        Me.ListBox2.SelectedIndex = 0<br />
      End Sub