VB 查找 判断 复制文件

来源：百度知道 编辑：UC知道 时间：2024/06/05 18:56:10
text1.text中存有n个文件名，每行一个文件名。
读取text1.text中第一行（要找的文件名）；
在“e:\新建”和其子文件夹中查找“要找的文件名。mp3;
存在则：复制到"d:\good"；
不存在则在text2.text中print"要找的方件名 + 未找到”；
循环至text1.text结束
我是新手，请详细点，最好是我复制后就可运行。谢谢
text1,text中有要找的单词，不带.mp3后缀，现在想在语音库文件夹中，找到text1中每个单词同名的mp3后复制到指定文件夹中，，语音库中没的，要另想办法，做记录，建个个人词库 。
下面1~3楼的程序，我运行后在d\good文件夹中都没有东西

至少有2种方法解决补充问题：
找子目录最简单的方法是：
你可以用cmd中的dir/s > temp.txt 找到所有文件。
shell("cmd dir "e:\新建\"& text1.text" /s >temp.txt) 调用这个命令。
另外也可以用文件属性来判断目录，稍微麻烦点，也比较简单。一楼给的方法不能找子目录。下面给一个找子目录文件的方法。
Dim TempDir, TempFileName, NextDir As String
Do While TempFileName <> ""
If TempFileName <> "." And TempFileName <> ".." Then
If GetAttr(TempDir & TempFileName) And vbDirectory Then
NextDir = TempDir & TempFileName
TempFileName = Dir(TempDir, 31)
Else
If TempFileName = text1.text Then
FileCopy TempDir & TempFileName ,"d:\good"
'没有考虑重名的情况，自己解决
End If
TempFileName = Dir
End If
Else
TempFileName = Dir
End If
DoEvents
L