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(drive.Name, FileIO.SearchOption.SearchAllSubDirectories) 'drive.name is a directory

                    '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
if extn.toUpper=".GPS" then
                            Me.RefreshList(file, FileType)
                        End If
                   
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                Next
            End If
        Next
    End Sub

Delegate Sub UpdateList(ByVal [FileName] As String, ByVal [FileType] As String)

Private Sub RefreshList(ByVal [FileName] As String, ByVal [FileType] As String)
              If frmMain.Listview1.InvokeRequired Then
            Dim d As New UpdateList(AddressOf RefreshList)
            frmMain.Listview1.Invoke(d, New Object() {[FileName], [FileType]})
        Else
            frmMain.Listview1.Items.Add([FileName].subitems.add([ThreatType])
        End If
    End Sub