yhcfsr

保存为bat文件,放在主目录下执行

@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-原始资料和身份信息"
    }
    
    
}
复制代码

yhcfsr

回复 4# lihongxin512


    已解决的帖子能否解锁?现在只能看到自己的回帖,其他人包括楼主的追问都无法看到,不方便他人参考.
尤其楼主没有用[回复]功能,其他人都看不到楼主的评论

yhcfsr

回复 4# lihongxin512


汗,老哥搞错对象了,身为3楼的我一脸懵逼:我们什么时候加了QQ?