level 7
暴牙归来
楼主
混合后的代码：Option Explicit On
Imports System.IO
Private FilePackage() As String
Dim line As String
Dim txtfileadress As String
Dim sr As IO.StreamReader
Dim DirPackage() As String
Dim SearchString As String
Dim DirString As String
Dim I As Long, J As Long, K As Long
Erase FilePackage
ReDim DirPackage(0)
DirPackage(0) = Me.FolderBrowserDialog1.SelectedPath & "\"
SearchString = "*.txt"
Do While I <= J
DirString = Dir(DirPackage(I), vbHidden Or vbDirectory Or vbReadOnly Or vbSystem)
Do While DirString <> ""
If DirString <> "." And DirString <> ".." Then
If (GetAttr(DirPackage(I) & DirString) And vbDirectory) = vbDirectory Then
J = J + 1
ReDim Preserve DirPackage(J)
DirPackage(J) = DirPackage(I) + DirString + "\"
Else
If UCase(DirString) Like UCase(SearchString) Then
FilePackage(K) = DirPackage(I) + DirString
K = K + 1
txtfileadress=FilePackage(K)
sr = IO.File.OpenText(txtfileadress)
Do While (sr.Peek <> -1)
line = sr.ReadLine
If line.Contains("文本中的信息") = True Then
MsgBox("该文本中还有指定信息")
End If
Loop
End If
End If
End If
DirString = Dir
Loop
I = I + 1
Loop
