[文件操作] 求助批处理把部分文件夹拷贝到一个文件夹下

'vbs
b="文件夹b"
a="保存了文件夹名的文本文件"
set fso=createobject("scripting.filesystemobject")
set shell=createobject("shell.application")
set f=fso.opentextfile(a,1,false,-2)
set d=shell.namespace(b)
do
c=f.readline
d.copyhere(c)
loop
复制代码

@echo off
for /f "usebackq delims=" %%a in ("1.txt") do (
	robocopy "A\%%a" "B\%%a" /e
)
pause
复制代码

@echo off
REM 备份到哪个目录下面
set "ToFolder=C:\Test"
REM 指定待搜索的文件夹名称
set "FolderName=BatHome"

for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
    if exist %%a:\ (
    echo 正在搜索%%a:\
        for /f "delims=" %%b in ('dir /b /s /ad "%%a:\*%FolderName%" 2^>nul ^| findstr /v /i /b "%ToFolder%"') do (
            if /i "%%~nxb" equ "%FolderName%" (
                xcopy /e "%%b" "%ToFolder%%%~pnxb\"
            )
        )
    )
)
复制代码

@echo off
REM 待查找的文件夹名称放在1.txt里面
set "FolderList=1.txt"
REM 备份到哪个目录下面
set "ToFolder=C:\Test"

cd /d "%~dp0"
for /f "delims=" %%i in ('type "1.txt"') do (
    call :ExecSearch "%%~nxi"
)
goto :eof

:ExecSearch
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
    if exist %%a:\ (
    echo 正在搜索%%a:\下面的文件夹%~1
        for /f "delims=" %%b in ('dir /b /s /ad "%%a:\*%~1" 2^>nul ^| findstr /v /i /b "%ToFolder%"') do (
            if /i "%%~nxb" equ "%~1" (
                xcopy /e "%%b" "%ToFolder%%%~pnxb\"
            )
        )
    )
)
复制代码