Question

vb6 搜索文件并复制

用的是vb6如何实现搜索文件（包括文件夹里的子目录，要搜索的是swf文件）并把它复制到制定文件夹。
要搜索的文件夹不是一个，使用list列出来，我想用timer一个地址一个地址的搜索并复制到textbox里输入的文件夹里
谢谢
如果找不到文件跳下一个地址继续搜索，
没有原代码告诉思考路径，方法，和部分主要代码也行

Answer 1

Private Sub sosuofile(MyPath As String)
Dim Myname As String
Dim dir_i() As String
Dim i, idir As Long
If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"
Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
Do While Myname <> ""
If Myname <> "." And Myname <> ".." Then
If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录
idir = idir + 1
ReDim Preserve dir_i(idir) As String
dir_i(idir - 1) = Myname
Else:
If Right(Myname, 3) = "swf" Then
List1.AddItem MyPath & Myname '添加到列表
End If
End If
End If
Myname = Dir '搜索下一项
Loop
For i = 0 To idir - 1
Call sosuofile(MyPath + dir_i(i))
Next i
ReDim dir_i(0) As String
End Sub