如何根据指定文件名批量移动文件夹内的文件

举例：
文本文档A：文件名清单（纯数字文件名）50个文件名
文件夹B：大数据库文件（文件格式Excel）成千上万个数据
文件夹C：
根据文件A中的清单内容，批量选择文件夹B的文件，并复制到文件夹C中

以下代码复制粘贴到记事本，另存为xx.bat，跟txt文件放一起双击运行（注：bat和txt文件必须存为ANSI/GB2312编码）
<# :
echo off&cls
rem 根据一个txt文本文件内列出的多个文件名，从一个指定文件夹里查找出相应的文件并剪切/移动到另一个文件夹里
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312'))))"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$txtfile="文件名清单.txt";
$oldfolder="D:\xxx\文件夹B";
$newfolder="E:\yyy\文件夹C";
if(-not (test-path -liter $txtfile)){write-host ('"'+$txtfile+'" not found');exit;};
if(-not (test-path -liter $oldfolder)){write-host ('"'+$oldfolder+'" not found');exit;};
if(-not (test-path -liter $newfolder)){[void](md $newfolder);};
$dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';
$text=[IO.File]::ReadAllLines($txtfile,[Text.Encoding]::GetEncoding('GB2312'));
for($i=0;$i -lt $text.count;$i++){
$key=$text[$i].toLower();
if(-not $dic.ContainsKey($key)){
$dic.Add($key, 0);
};
};
$files=@(dir -liter $oldfolder|?{$_ -is [System.IO.FileInfo]});
for($i=0;$i -lt $files.length;$i++){
$key1=$files[$i].Name.toLower();
$key2=$files[$i].BaseName.toLower();
if($dic.ContainsKey($key1) -or $dic.ContainsKey($key2)){
write-host $files[$i].FullName;
$newfile=$newfolder.trimend('\')+'\'+$files[$i].Name ;
move-item -liter $files[$i].FullName $newfile;
}
}

move 文件全名包括后缀 移动的文件夹名字
中间有空格的地方需要加空格，然后改成bat，应该就行吧

我就喜欢无脑操作
https://blog.csdn.net/binbin321/article/details/122357798?spm=1001.2014.3001.5501
点点鼠标完成的事情，为什么要写代码，写代码程序员干的活