用于复制也复制文件夹名称的文件的批处理脚本

Question

此代码正在尝试从网络位置复制文件和文件夹，但未创建文件夹

提供的代码

@echo off
if not "%1"=="am_admin" (powershell start -verb runas '%0' am_admin & 
exit /b)
echo main code here
pause
G:
set "File=E:\folder names.txt"
set /a count=0
pushd \\Network IP\public
SETLOCAL enabledelayedexpansion
for /F "tokens=* delims=" %%a in ('Type "%File%"') do (
    Set /a count+=1
    Set "b=%a:~21%"
    mkdir "G\PGP 21A\%%b"
    echo %b%
    xcopy %%a "G:\PGP 21A\%b%"  /e /s /r /t /y /z
)
pause 
Exit

预期结果是，给定文件中的文件夹（及其名称）将随复制文件夹内容一起在目标位置创建。