批处理之家 - Powered by Discuz! Board

标题: [文件操作] 求助：将一个文件复制到同目录下的每一个文件夹并重命名 [打印本页]

作者: demo 时间: 2019-4-3 12:56 标题: 求助：将一个文件复制到同目录下的每一个文件夹并重命名

求助：将一个文件复制到同目录下的每一个文件夹并重命名

例如将报案表.xls 复制到同目录下的每一个文件夹之中并且重命名重命名的规则为文件夹的日期加一天即可
ps: 最好程序中不需要出现路径因为是要多人多电脑使用的做好是傻瓜处理的那种

作者: Batcher 时间: 2019-4-3 13:21

请把文件夹的日期格式发出来看一下，因为日期可能有多种格式例如：
2019-04-03
20190403
......

作者: demo 时间: 2019-4-3 13:52

回复 2# Batcher

日期格式为 2019-04-03 这种望大牛不吝赐教先谢谢各位了

作者: zaqmlp 时间: 2019-4-3 15:21

@echo off
set info=互助互利,代码可用,支付宝扫码头像,感谢赞助
rem 有问题,加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
set "file=报案表.xls"
powershell ^
    $f=gi '%file%';^
    dir^|?{$_ -is [System.IO.DirectoryInfo]}^|%%{^
        if($_.Name -match '\d{4}-\d{2}-\d{2}'){^
            $newname=([datetime]$matches[0]).adddays(1).toString('yyyy-MM-dd')+$f.Extension;^
            write-host ('%file% --^> '+($_.Name+'\'+$newname));^
            copy -liter '%file%' ($_.FullName+'\'+$newname);^
        };^
    }
pause
复制代码

作者: demo 时间: 2019-4-3 19:46

回复 4# zaqmlp

谢谢非常感谢批处理很好用感谢大牛的帮助那个二维码跳转不出来不知道怎么回事

欢迎光临批处理之家 (http://www.bathome.net/)