如何用批处理将某个盘内所有txt文件复制到另一个盘

如我要将D盘（包括子文件夹）内所有txt文件复制到E:\book内，且要忽略D:\Program Files文件夹，该怎么写
以下批处理可以实现全部复制，但如何忽略某一文件夹
@echo off
setlocal enabledelayedexpansion
set dst=E:\book
set src=D:
for /f "delims=" %%i in ('dir/s /b "!src!\*.txt"')do copy "%%i" "!dst!"

这样做，比如说你要复制F:\A下所有的txt到E:\
@echo off
cd F:\A
copy *.txt E:\
pause

By 110schoolx
纯手工，请勿人间蒸发，不懂继续提问，解决请采纳，谢谢！