两个列表（字符串），当我向其中一个添加一个值时，它被添加到另一个

Question

我在两个不同的目录中获取文件夹并将它们的名称放入两个列表视图中，但是如果一个文件夹名称仅存在于一个目录中，我不想在另一个列表中输入任何内容，反之亦然，除非文件夹名称在两者中，那么我只想要两个列表中的名称。

这是我正在使用的代码：

Private folders As New List(Of String), oFolders As New List(Of String), AllFoldrs As New List(Of DirectoryInfo), CurFdr As DirectoryInfo
Private Sub Get_LVItems()
    folders.Clear() : oFolders.Clear() : CurLV.Items.Clear() : AllFoldrs.Clear() 'Empty folders List and CurrentLV items
    Dim LV As ListView = CurLV, oLV As ListView = OtherLv
    Dim Pth As String = CurTV.SelectedNode.Name, oPth As String = ""
    Dim Dinfo As New DirectoryInfo(Pth), oDinfo As DirectoryInfo = Nothing
    Dim TmpFoldrs As New List(Of DirectoryInfo), oTmpFoldrs As New List(Of DirectoryInfo)
    If Not IsNothing(OtherTV.SelectedNode) Then
    End If
    If TVs_Syncd Then
        oPth = OtherTV.SelectedNode.Name : oDinfo = New DirectoryInfo(oPth)
        TmpFoldrs.AddRange(Dinfo.GetDirectories) : oTmpFoldrs.AddRange(oDinfo.GetDirectories)
        AllFoldrs.AddRange(Dinfo.GetDirectories) : AllFoldrs.AddRange(oDinfo.GetDirectories)
        AllFoldrs.Sort(AddressOf SrtAllFdrs)
        Do While AllFoldrs.Count > 0
            CurFdr = AllFoldrs(0)
            Dim Found_fdr As DirectoryInfo = Nothing, oFound_fdr As DirectoryInfo = Nothing
            For Each fdr As DirectoryInfo In TmpFoldrs
                If fdr.Name = CurFdr.Name Then Found_fdr = fdr : Exit For
            Next
            If IsNothing(Found_fdr) Then folders.Add(Nothing) Else folders.Add(Found_fdr.FullName)
            For Each ofdr As DirectoryInfo In oTmpFoldrs
                If ofdr.Name = CurFdr.Name Then oFound_fdr = ofdr : Exit For
            Next
            If IsNothing(oFound_fdr) Then oFolders.Add(Nothing) Else oFolders.Add(oFound_fdr.FullName)
            AllFoldrs.RemoveAll(AddressOf RemDirs)'After adding a folder to both collections (folders & oFolders) all instances of that folder get removed from AllFolders
        Loop
        LoadListView(oLV)
        folders.Clear()
        folders = oFolders
        LoadListView(LV)
    Else
        folders.AddRange(Directory.GetDirectories(Pth))
        LoadListView(LV)
    End If
End Sub

两个功能：用于删除刚刚处理的文件夹名称的所有实例和排序 function 用于在将所有文件夹名称添加到其中后对 AllFoldrs 进行排序：

Public Function RemDirs(dir As DirectoryInfo) As Boolean
    Return dir.Name = CurFdr.Name
End Function
Public Function SrtAllFdrs(ByVal X As DirectoryInfo, ByVal Y As DirectoryInfo) As Integer
    Return X.Name.CompareTo(Y.Name)
End Function

我将两个目录文件夹添加到 AllFolders 并将每个目录文件夹添加到它们自己的 Tmp 列表中。 在第一个 For Each 循环中，我查看当前文件夹名称是否存在于 tmp 列表中，如果存在，我将值放入 Found_fdr 然后当我将它添加到我用来填充列表 A 的列表（字符串）中时，它得到同时添加到另一个列表（字符串）。 我很困惑，这比我最后一个没有答案的问题更重要。 这真的没有让我感到惊讶吗？ 任何人。 请...