在立即窗口中查看结果，搜索结果包括文件及文件夹，要复制的话，文件夹里的文件会重复复制，不明白你的意思
Sub test()
    FindFile "c:\abc\", "*目标*"
End Sub

Sub FindFile(mPath As String, Optional sFile As String = "")
On Error Resume Next
Dim s As String, sDir() As String
Dim i As Long, d As Long

If Right(mPath, 1) <> "\" Then
    mPath = mPath & "\"
End If
'查找目录下的文件
s = Dir(mPath & sFile, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While s <> ""
   Debug.Print mPath & s
   s = Dir
Loop
'查找目录下的子目录
s = Dir(mPath, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While s <> ""
    If s <> "." And s <> ".." Then
        If (GetAttr(mPath & s) And vbDirectory) = vbDirectory Then
        d = d + 1
        ReDim Preserve sDir(d)
        sDir(d) = mPath & s
        End If
    End If
    s = Dir
Loop

'开始递归
For i = 1 To d
    FindFile sDir(i) & "\", sFile
Next

End Sub

论坛币干嘛的

不知道，应该有用，我倾尽所有求助了

以下过程利用递归可以查找目录和子目录下的所有文件
Public Sub FindFile(mPath As String, Optional sFile As String = "")
On Error Resume Next
Dim s As String, sDir() As String
Dim i As Long, d As Long

If Right(mPath, 1) <> "\" Then
    mPath = mPath & "\"
End If
'查找目录下的文件
s = dir(mPath & sFile, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While s <> ""
   Debug.Print mPath & s
   s = dir
Loop
'查找目录下的子目录
s = dir(mPath, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While s <> ""
    If s <> "." And s <> ".." Then
        If (GetAttr(mPath & s) And vbDirectory) = vbDirectory Then
        d = d + 1
        ReDim Preserve sDir(d)
        sDir(d) = mPath & s
        End If
    End If
    s = dir
Loop

'开始递归        
For i = 1 To d
    FindFile sDir(d) & "\"
Next

End Sub

我研究一下，比如我要在c:\abc\下查找所有含有“目标”的文件和文件夹，找出后在c:\下建立一名为“目标”的文件夹，并把搜索结果都复制到里面，应该怎么弄?