Visual Basic

Dim dt As DataTable<br />
<br />
    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click<br />
        '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 />
        <br />
        Dim dv As DataView = dt.DefaultView<br />
        dv.Sort = "ExcludePath ASC"<br />
<br />
        For Each path As String In enteredFilePaths<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 />
            If rows.Length > 0 Then<br />
                For Each row As DataRowView In rows<br />
                    'It was found in the database, display it in the listbox.<br />
                    Me.ListBox2.Items.Add(row.Item("ExcludeFileName"))<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 />
        Next<br />
        GetDirectoryContents(enteredFilePaths, patterns)<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<br />
<br />
   Private Sub LoadData()<br />
        'Create a datatable to store data<br />
<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 />
        DataGridView1.DataSource = dt<br />
<br />
        dt.Columns.AddRange(New DataColumn() {colExFileID, colExFilePath, colExFileName})<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 * FROM tblExclude"<br />
<br />
        Dim dAdapter As New OleDbDataAdapter()<br />
        dAdapter.SelectCommand = New OleDbCommand(strSQL, myConnection)<br />
<br />
        'Retrieve the data from the database and load the DataTable with it<br />
        dAdapter.Fill(dt)<br />
<br />
        myConnection.Close()<br />
<br />
    End Sub<br />
<br />
    Private Sub SearchFileForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        LoadData()<br />
<br />
    End Sub

Dim stringSize As New SizeF
Dim g As Graphics

Using myFont As New Font("Courier", 1)
Using myBitmap As New Bitmap(1, 1)
     g = Graphics.FromImage(myBitmap)
     stringSize = g.MeasureString(outputString), myFont)
End Using
End Using