请教大侠们
窗体上有个文本框（或是别的什么部件，比如列表框都行），里面有N行名字，按一个按钮，就遍历该程序所在的文件夹里的文件名（不管文件格式是什么，有可能是 txt，jpg,png或doc啥的），只要文件名前几个字（2个、3个或4个）与文本框里某一行的名字对应上了（不会有重复的），该行的内容就自动填入第2个文本框，遍历结束后，剩余不匹配的进第3个文本框

大概思路：
用一个字符串数组存储文本框1当中的各个名字
在循环中用Dir遍历文件夹，获取每个文件名
对于某个文件名，循环检查数组每个名字是否为文件名的前几个字符（例如数组名称为s，文件名为f，对于数组s的第i个元素s(i)，判断条件为s(i)=Left(f,Len(s(i)))），如果是，则将数组中的该名字移动到另一个表示“已匹配”的数组当中
上述循环结束后，分别将两个数组的内容显示到文本框2和3中

'我本来一点不会，但是从网上信息研究后写出了这个，参考一下吧
Option Explicit
Private Sub Command1_Click()
Dim fs, f, fc, f1
Dim i As Integer
Dim b As Boolean
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder(App.Path)
Set fc = f.Files
List2.Clear
List3.Clear
For i = 0 To List1.ListCount - 1
b = False
For Each f1 In fc
If Left(f1.Name, Len(List1.List(i))) = List1.List(i) Then
List2.AddItem List1.List(i)
b = True
Exit For
End If
Next
If Not b Then
List3.AddItem List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "周星驰"
List1.AddItem "刘德华"
List1.AddItem "成龙"
List1.AddItem "山口百惠"
End Sub

dim sPath as string
sPath=app.path & "\"
For i = 0 To List1.ListCount - 1
if dir(sPath & "*" & list(i) & "*") <> "" then
list2.additem list1.list(i)
else
list3.additem list1.list(i)
end if
Next

'按钮b
Private Sub Command2_Click()
Dim j As Integer
List2.Clear
List3.Clear
For j = 0 To List1.ListCount - 1
If InStr(Text1.Text, List1.List(j)) > 0 Then
List2.AddItem List1.List(j)
Else
List3.AddItem List1.List(j)
End If
Next j
End Sub

为什么不用listview控件呢！一个顶3个列表框。