如何搜索包含指定文字的文件？

Question

可是我不会呀!能帮我编个dll吗?

Answer 1

1、获得某个文件夹下的所有子目录 
下面的函数演示如何获得某个文件夹下的所有子目录
Public Sub HaalDirOp(ByVal Path$)
Dim vDirName As String, LastDir As StringScreen.MousePointer = vbHourglass
If Right(Path$, 1) <> "\" Then Path$ = Path$ & "\"
vDirName = Dir(Path, vbDirectory) ' Retrieve the first entry.
Do While Not vDirName = ""
If vDirName <> "." And vDirName <> ".." Then
If (GetAttr(Path & vDirName) And vbDirectory) = vbDirectory Then
LastDir = vDirNameMsgBox vDirNameCall HaalDirOp(Path$ & vDirName)vDirName = Dir(Path$, vbDirectory)
Do Until vDirName = LastDir Or vDirName = ""
vDirName = Dir
Loop
If vDirName = "" Then Exit Do
End If
End If
vDirName = Dir
Loop
Screen.MousePointer = vbNormal
End Sub
2、调用DIR函数