求助 vb+access

Question

我需要做一个查询文章的系统，文章格式有word、pdf格式，需要一个下拉列表框，有模糊查询的功能，并且word格式的文章有柱形图和三线表，请问如何实现？谢谢！

Answer 1

两个参数,一是路径,二是要查找的内容
Private Sub Search(ByVal vstrPath As String, ByVal vstrContent As String)
    Dim FSO As FileSystemObject
    Dim INI As TextStream
    Dim tmpStr As String    Set FSO = New FileSystemObject
    FName = Dir(vstrPath & "\*.*")
    While FName <> ""
        Set INI = FSO.OpenTextFile(FName)
        While Not INI.AtEndOfStream
            tmpStr = INI.ReadLine
            If InStr(1, tmpStr, vstrContent) > 0 Then
                '已查到,已查到,相关处理
                'Exit Sub
            End If
        Wend
        
        FName = Dir
    Wend
    Set INI = Nothing
    Set FSO = Nothing
End Sub