@echo off
for /f "tokens=2 delims==" %%i in ('wmic path win32_operatingsystem get LocalDateTime /value ^| find  "="') do set d=%%i
set "today=%d:~,8%
echo;%today%
cd /d "%~dp0"
for /f "tokens=1* delims=:" %%a in ('type "名单.txt"^|findstr /n .') do (
    for %%i in ("01-原始资料和身份信息" "02-债权转让" "03-立案材料" "04-签收底单") do md "输出\%today%-%%a-%%b\%%~i" 2>nul
    for /f "delims=" %%i in ('dir /a-d/b/s "材料\*%%b*"') do (
        echo;"%%i" --^> "输出\%today%-%%a-%%b\01-原始资料和身份信息\"
        move "%%i" "输出\%today%-%%a-%%b\01-原始资料和身份信息\"
    )
    
)
pause
复制代码

@Powershell "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]::Default))").Invoke()}" & pause & exit

$list_txt = '名单.txt';

#1. 在主文件夹内创建文件夹名“输出”
if(-not [IO.Directory]::Exists('输出')) { md '输出'|Out-Null }

#2. 并在“输出”中建立格式为：当前日期“年月日”+“序号”+“名字”的文件夹，每个“”内容用“-”分隔
#    并在每个文件夹内建立相同的四个子文件夹：
#    1. “01-原始资料和身份信息” 2. “02-债权转让” 3. “03-立案材料” 4. “04-签收底单”
$text = type $list_txt -ReadCount 0;
$count = $text.Count;
$counter=0;
$len = [string]$count.Length
$ErrorActionPreference = 'silentlycontinue'
foreach($line in $text)
{
    $dir_name = "输出\{0:yyyyMMdd}-{1:d$len}-{2}" -f [datetime]::Now,++$counter,$line;
    
    if(-not [IO.Directory]::Exists($dir_name)) { md $dir_name|Out-Null }
    if($?)
    {
        md "$dir_name\01-原始资料和身份信息" |Out-Null;
        md "$dir_name\02-债权转让"         |Out-Null;
        md "$dir_name\03-立案材料"         |Out-Null;
        md "$dir_name\04-签收底单"         |Out-Null;
    }
    #3. 以“名单”内每行的人名为关键字，搜索并移动主文件夹内另一文件夹“材料”内
    #   含有该关键字的文件至“输出”中相应含有关键字的文件夹内“01-原始材料和身份信息”中
    foreach($file in (dir "材料\*" -Filter *$line*))
    {
        move $file "$dir_name\01-原始资料和身份信息"
    }
    
    
}
复制代码