vb中如何将文件添加到列表框，再重这个列表框添加到另一个列表框
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 '列表框索引是从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
