VB搜索一个文件夹内的文档并在另一个控件内显示内容~

来源：百度知道 编辑：UC知道 时间：2024/06/23 20:50:18
VB在窗口Form1里面加入一个写字框，然后和一个按钮.在写字框里输入文字,点按钮，就会在一个文件夹内（最好是固定的）搜索和写字框内的文字有关的一个文档名（比如搜索WORD文档），并在另一个控件内显示其内容（程序内不能更改其内容）?

Private Sub Command1_Click()

Text1.Text = "*.doc" '实际没有这句，自己在 TextBox 中输入想要查找的文件的标示

Dim s As String

s = Dir("d:\" & Text1.Text)
If s = "" Then
MsgBox "没有要查找的文件！"
Exit Sub
Else
List1.AddItem s
End If

Do
s = Dir
If s = "" Then
Exit Do
Else
List1.AddItem s
End If
Loop

End Sub

WORD文档有微软保密的编码，没有公开，所以你编的程序是不能直接正确读取其内容的，除非使用插件！

11111111111111