Visual Basic

Private Sub BGWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGWorker.DoWork
                
                For Each file As String In My.Computer.FileSystem.GetFiles("c:\", FileIO.SearchOption.SearchAllSubDirectories)

                    'Check for cancelation of Background worker.
                    If BGWorker.CancellationPending Then
                        e.Cancel = True
                        Exit Sub
                    End If

                    Dim extn As String = IO.Path.GetExtension(file)

                    Try
                        Dim sql As String = "Select * from ThreatType"
                        Dim cmd As New OleDb.OleDbCommand(sql, con)
                        ThreatDatabase.Connect()

                        Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader

                        While reader.Read
                            If extn.ToUpper = reader.GetString(0) Then
                                If IO.Path.IsPathRooted(file) Then
                                Me.RefreshList(file, reader.GetString(1)) 'cross-threading
                            End If
                        End While
                        reader.Close()

                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                Next
            End If
        Next
    End Sub

Delegate Sub UpdatetList(ByVal [Name] As String, ByVal [Type] As String)

Private Sub RefreshList(ByVal [Name] As String, ByVal [Type] As String)
        If frmMain.ListView1.InvokeRequired Then
            Dim d As New UpdateList(AddressOf RefreshList)
            frmMain.ListView1.Invoke(d, New Object() {[Name], [Type]})
        Else
          frmMain.ListView1.Items.Add([Name]).SubItems.Add([Type])
        End If
    End Sub

Me.ListView1 

frmMain.ListView1