Breadcrumbs

[XTechVB]

i have this code (NOT MINE)

Code: Select all

   Public Sub SubFoldersRecursive(ByVal Root As DirectoryInfo, ByRef Status As String)
        Try
            Status += Root.FullName + vbNewLine
            If (Root.GetDirectories.Length <= 0) Then
                Exit Sub
            End If
            Dim SD As DirectoryInfo
            For Each SD In Root.GetDirectories
                If SD.Attributes = FileAttributes.Directory Then
                    SubFoldersRecursive(SD, Status)
                End If
            Next
        Catch ex As Exception
            Status += ex.Message + vbNewLine
        End Try
    End Sub

to display a list of folders and subfolders

and i call that sub with the following code by using a background worker

Code: Select all

Dim T As String = ""
                    Dim R As New DirectoryInfo("D:\")
                    Call SubFoldersRecursive(R, T)
dim g as new listview item
g.text = t
listview1.items.add(g)

now the problem is that when i start the worker it duplicates all the items in the listview

my question: WHY dunnno;

[XTechVB]

never mind
Solved!