Question

vb中如何将文件添加到列表框，再重这个列表框添加到另一个列表框

1.单击按钮1，添加任意格式的文件到列表框1（要支持多次添加且列表框1不被清空和替换）
2.单击按钮2，将列表框1里面选中的文件添加到列表框2
3.单击按钮3，将列表框1里面的所有文件添加到列表框2
4.文本框输入文件名，单击按钮4，搜索文件名中有文本框内容字样的文件并自动定位到列表框1里面的那个文件，再次单击按钮，则搜索下一个，当没有相应文件时则弹出窗口报错

列表框操作不是很懂，特别是搜索定位，所以贴出来给懂的朋友们看看。
你有什么好的建议尽管提，或许比我这个操作肯简单也不一定~~
先谢谢大家啦！！！

Answer 1

Option Explicit

Private Sub Command1_Click()

'=======如果路径为空则不搜索=================

If Trim$(Text1.Text) = "" Then

    MsgBox "输入路径", vbCritical

    Text1.SetFocus

    Exit Sub

End If

'===============END=========================

'======搜索出路径下所有文件=================

Dim strFileName As String

strFileName = Dir(Trim$(Text1.Text))

Do While Trim$(strFileName) <> ""

    List1.AddItem strFileName

    strFileName = Dir

Loop

End Sub

Private Sub Command2_Click()

Dim i As Integer

For i = 0 To List1.ListCount - 1           '列表框索引是从0开始的

  If List1.Selected(i) Then

        List2.AddItem List1.List(i)        '如果被选择，则添加到LIST2里

    End If

Next

End Sub

Private Sub Command3_Click()

Dim i As Integer

List2.Clear

For i = 0 To List1.ListCount - 1

    List2.AddItem List1.List(i)

Next

End Sub

Private Sub Command4_Click()

Dim i As Integer

'================要查询的文件名为空则不查询=================

If Text2.Text = "" Then

    MsgBox "请输入要查询的文件名", vbExclamation

    Text2.SetFocus

    Exit Sub

End If

'=====================End================================

For i = 0 To List1.ListCount - 1

    If List1.List(i) = Trim$(Text2.Text) Then

        List1.Selected(i) = True         '文件定位，做一个选择

    Else

        List1.Selected(i) = False

    End If

Next

End Sub