这是百度下载的一个搜索文件代码，谁帮我改一下
这是百度下载的一个搜索文件代码，谁帮我改一下增加可以把搜索到的文件复制出来的或者另存为出来的按键进去？非常感谢
drvscan.rar
(6.66 KB)
drvscan.rar
(6.66 KB)
drvscan.rar
(6.66 KB)
2011-05-22 23:14
2011-05-22 23:19
程序代码：
Private Sub Command1_Click()
Dim i As Integer, Temp As String, Temp1 As String
For i = 0 To List1.ListCount
Temp = Mid(List1.List(i), InStrRev(List1.List(i), "\") + 1, Len(List1.List(i)) - InStrRev(List1.List(i), "\"))
Temp1 = "C:\TMB\" & Temp
FileCopy List1.List(i), Temp1
Next i
End Sub
2011-05-26 03:11