如何通过批处理或者VBS脚本复制一个文件夹至某一目录下的所有子文件夹？

set “folder=D:\部门”

set "src=%~p0"

for /f "delims=" %%a 帆态余in ("%src%") do set "src=%%~nxa"

for /f "delims=" %%a in ('dir /ad /b "%folder%"') do (

xcopy /y *.txt "态滚%folder%\%%a\%src%\"

)

将此批处理保存闭雀在注意事项文件夹下运行

On Error Resume Next

Dim fso,cd,wssh,fs,f,subf

Set fso = CreateObject("Scripting.FileSystemObject")

'在e盘雀伏罩创建一个文厅粗件夹，用于放置复制后的文件

fso.CreateFolder "e:\hello"

Set wssh=CreateObject("WScript.Shell")

cd=wssh.CurrentDirectory

fso.CopyFile cd&"\*.bat","e:\hello"

Set fs=fso.GetFolder(cd)

Set f=fs.SubFolders

For Each subf In f

fso.CopyFile subf&"\*.bat","e:\hello"

Next

wssh.Run "e:\hello"