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

来源：百度知道 编辑：UC知道 时间：2024/06/06 14:58:53
1.单击按钮1，添加任意格式的文件到列表框1（要支持多次添加且列表框1不被清空和替换）
2.单击按钮2，将列表框1里面选中的文件添加到列表框2
3.单击按钮3，将列表框1里面的所有文件添加到列表框2
4.文本框输入文件名，单击按钮4，搜索文件名中有文本框内容字样的文件并自动定位到列表框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        &nb