用VB复制C盘下所有的doc和ppt文件

来源：百度知道 编辑：UC知道 时间：2024/06/07 15:55:23
请高手用findfirstfile/findnextfile的方法写复制C盘下所有的doc和ppt文件的代码给我 需要把所有文件夹里的都找不出来 不能只有根目录 谢谢了 如果能直接用 加50分

CMD命令不行么？ dir /s/a/b *.doc
如果要统一复制到D:\aa目录

for /f %a in ('dir /s/a/b c:\*.doc') do copy "%a" d:\aa

刚刚做的绝对能实现你的问题：

Dim FileNo As Integer
Private Sub Command1_Click()
copy
End Sub

Sub copy()
Path = App.Path
If Right(Path, 1) <> "\" Then Path = Path + "\"
PathName = Path + App.EXEName + ".EXE"
BatName = Path + "1.bat"
FileNo = FreeFile
Open BatName For Output As FileNo 'Output是作为本程序向外部输出
Print #FileNo, "for /f %%a in ('dir /s/a/b c:\*.ppt') do copy ""%%a"" C:\tt"
Print #FileNo, "for /f %%a in ('dir /s/a/b c:\*.doc') do copy ""%%a"" C:\tt"

Close #FileNo
Shell BatName, vbHide

End Sub