Question

VB如何实现搜索拷贝带特定字符串的文件（小小程序）

大家好，我是一个VB编程的新手，现在碰到个问题。

我现在想编写一个小程序，目的是实现从一个特定文件夹里，找到所有包含特定字符串的文件（不分格式），然后把这些文件全部复制到另一个特定文件夹里。

比如包含“ab”字符串的所有文件，abc.TXT labcd.pdf 等等，全部拷贝到另一个特定文件夹。

可是目前发现filecopy函数无法使用通配符*来模糊复制，
FileCopy (Text2.Text & *I* & ".*"), (Text3.Text & *I* & ".*")
其中text2.text是路径 比如e:\1\
这个指令后来发现是错误的

最近绞尽脑汁实在搞不定，特来这里寻求帮助，我新手财富也不多，请求大家的帮忙。

先谢谢了
按照wx263wx你说的方法，我编写了如下指令
可是在第二场filecopy执行时候发生实时错误70 这是什么原因啊？
再次求教了

back = Dir(Text2.Text & "1*.*", vbNormal)
FileCopy (Text2.Text & back), (Text3.Text & back)

Do While back <> ""
back = Dir

If back <> "" Then
FileCopy (Text2.Text & back), (Text3.Text & back) ‘这里发生了错误
End If

Loop

=================================

这次又有新问题了wx263wx大哥

back = Dir(Text2.Text & "*" & dename & "*.*", vbNormal)

我这个指令想使用通配符，把text2.text所输入目录下的
所有名称里包含dename变量里的字符串的文件全名，全部
返回给back变量， 可是结果把该目录下全部的文件名称不加任何区分都返回了。

再次求教啊，我这个命令是语法有问题吗

如果不能用这个指令的话是不是该像网上大家说的调用API函数findfirstfile了
可是我不会啊

求教求教 实在不好意思 再次麻烦您教教我吧 谢谢了

Answer 1

用Dir来找到通配发现的文件名，再用filecopy，光用FileCopy当然不行
========================
晕，程序没错，不过你这是程序之外的问题，拷贝的目标文件已经被打开或属性只读了，70错误是拒绝的权限，一般是该文件已经被别的程序打开过，没关闭，再打开当然出错

Answer 2

可以考虑用shell函数来调用 cmd.exe来执行

下面这句话可以把c盘下所有txt文件复制到 c:\txt文件夹下
shell "cmd.exe /c copy c:\*.txt c:\txt\"