如何 通过VBS 搜索 电脑上的所有文件夹 然后复制一个文件到这所有的文件夹下

Question

如题所述

Answer 1

'*************************代码开始*********************************

for each a in fso.drives '获取每个盘符
set a=fso.getdrive(a)
if a.drivetype=2 then '如果该盘是固定磁盘
b=a.rootfolder '返回可移动磁盘的根路径
call fzwj(b)
end if
next

sub pdwjj(mb) '判断文件夹
call fz(mb)
for each d in mb.subfolders '根目录下的文件夹
call pdwjj(d)
next
end sub

sub fz(lj) '复制文件
wj="e:\1.vbs" '要复制的文件
if right(lj,1)<>"\" then lj=lj & "\"
fso.copyfile wj,lj & nm,true '复制文件到指定文件夹，参数true表示如果文件存在的话就覆盖
end sub

'*************************代码结束*********************************

以上代码关键要利用sub过程的循环调用来达到文件夹得历遍，然后复制文件到文件夹就很简单了。。。

Answer 2

思路：用dir函数逐个盘符的查找文件夹，发现文件夹就记录下来，完成一遍扫描后对发现的文件夹扫描，有子文件夹就记录下来....扫描完成后；根据记录的文件夹，逐个拷贝文件。
比如
dir("c:\")
后边直接用dir()知道返回值为空