批处理,如何复制文件夹里指定pdf,保存到另一个文件夹里?

发布网友 发布时间：2022-04-25 16:01

我来回答

共2个回答

热心网友 时间：2023-04-26 14:49

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，跟要处理的文件放一起双击运行；bat和txt文件须存为ANSI/GB2312编码
<# :
cls&echo off&mode con lines=3000
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')))) -Args '%~f0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$txtfile="列表.txt";
$newfolder="D:\xxx\新文件夹";
if(-not (test-path -liter $txtfile)){write-host ('"'+$txtfile+'" 未找到');exit;};
if(-not (test-path -liter $newfolder)){[void][IO.Directory]::CreateDirectory($newfolder)};
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
[byte[]]$b=@(32,45,45,62,32);
$c=[Text.Encoding]::Default.GetString($b);
$dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';
$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,'');}
}
$files=@(dir -liter $path|?{('.pdf' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
$key=$files[$i].BaseName.toLower();
if($dic.ContainsKey($key)){$files[$i].Name+$c+$newfolder;}
}

热心网友 时间：2023-04-26 14:50

你的意思是随机选择5k份，复制，并生成列表
还是先定义列表，然后根据列表复制