Question

VB如何通过在文本框输入的文件名来查找在指定的目录资料下与该文件相符的文件，并将相符的文件list出来。

text1 输入文件名
list1列出包含输入文件名的所有文件
text2 显示在list1中选中的文件的内容

Answer 1

以下是我自创的方法，在VB上试过，还算可以。
这个用语言描述有点烦絮，但我可以按着你的控件要求直接给你代码。基本思路是Do While和If语句的组合使用实现数据组的搜索功能，这个方法可能有点笨，但很好想。还要指明一点，这个搜索方法不支持“?”和“*”的模糊指代，而且区分大小写。

首先要在窗体中添加一个“搜索”按钮，控件名为Command1；再向窗体中添加一个FileListBox，控件名为File1，并将其Visible设为False。

Private Sub Command1_Click()
List1.Clear '如果要想保留上次的搜索结果并继续追加新的结果，请删去此句。
File1.Path = "在这个引号里打上你要指定的路径，具体方法写在了代码的后面"
c = 0
a = 0
Do While a <= File1.ListCount - 1
File1.ListIndex = a
i = 1
Do While (Not Text1.Text = Mid(File1.FileName, i, Len(Text1.Text))) And i <= Len(File1.FileName) - Len(Text1.Text) + 1
i = i + 1
Loop
If i <= Len(File1.FileName) - Len(Text1.Text) + 1 Then
List1.AddItem File1.FileName
c = c + 1
End If
a = a + 1
Loop
If c = 0 Then
MsgBox ("在指定的路径中没有找到任何包含有“" & Text1.Text & "”文件名的文件。"), 16
Else
MsgBox ("搜索完毕，共找到" & c & "个相符文件。"), 64
End If
End Sub

Private Sub List1_Click()
Text2.Text = List1.List(List1.ListIndex)
End Sub

打路径的方法：
1.如果你要指定的路径是固定的，那么要在引号中打上完整路径。需要注意的是：如果路径是某个盘的跟目录，比如C盘，则你要打上"C:\"，如果路径不是某个盘的跟目录，比如C盘中的Program Files文件夹中的Windows Media Player文件夹，则你要打上"C:\Program Files\Windows Media Player"，你会发现路径中最后一个“\”没有了。
2.路径也可以用变量指定，比如，你可以在窗体中画一个Text3，让用户在使用你编的程序中自主输入路径。此时只需将代码中整个那一句话替换成
File1.Path = Text3.Text
就行了。