批处理按关键字移动到多个指定文件夹？

发布网友发布时间：2022-04-19 12:21

共1个回答

热心网友时间：2023-10-24 22:45

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI
<# :
cls&echo off&mode con lines=5000
rem 将一个指定文件夹下名称末尾包含有指定关键字的子文件夹剪切/移动到另一个新的文件夹下名称末尾包含有相同关键字的子文件夹里
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')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$oldfolder="D:\xxx\原文件夹";
$newfolder="D:\yyy\新文件夹";
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$folders1=@(dir -liter $oldfolder|?{$_ -is [System.IO.DirectoryInfo]});
$folders2=@(dir -liter $newfolder|?{$_ -is [System.IO.DirectoryInfo]});
$dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';
for($i=0;$i -lt $folders2.length;$i++){
$key=$folders2[$i].Name -replace '^.+、';
if(-not $dic.ContainsKey($key)){$dic.add($key,$folders2[$i].FullName);}
}
for($i=0;$i -lt $folders1.length;$i++){
$key=$folders1[$i].Name -replace '^.+_';
if($dic.ContainsKey($key)){$folders1[$i].FullName+$c+$dic[$key];}
}