如何用VB实现模糊文件搜索?

来源：百度知道 编辑：UC知道 时间：2024/06/18 01:28:55
如何用VB编写代码实现:
在文本框Text1里面写一个关键词,然后点击按钮Command1在指定文件夹内查找出文本文件名中包含该关键字的文件,然后把查到的文件名全部列在List控件里,然后点击List中的任何一个文件名都能在指定的RichTextBox中打开该文本文件

Option Explicit

Private Sub Command1_Click()
Dim R As String, S As Integer, i As Integer
R = UCase(Dir("路径名\*.txt"))
If R = "" Then MsgBox "文本文件不存在!": Exit Sub
S = InStr(R, "B")
If S <> 0 Then List1.AddItem R
Do
R = UCase(Dir)
S = InStr(R, "B")
If S <> 0 Then List1.AddItem R
Loop Until R = ""
End Sub

Private Sub List1_Click()
Dim R As String, i As Integer, S As String
For i = 0 To List1.ListCount
If List1.Selected(i) = True Then
R = List1.List(i)
Exit For
End If
Next i
Open "路径名" + R For Input As #1
S = ""
Do While Not EOF(1)
Line Input #1, R
S = S + R
Loop
RichTextBox1.Text = S
End Sub
试试吧。

好牛