[文件操作] 批处理如何实现批量复制文件到指定文件夹并对重名文件以递增序号方式更名？

ihtyuu

我想把一个文件夹以及其子文件夹里的所有文件全部复制到另一个文件夹里，如果遇到重名的，自动重命名
文件一般是图片文件
我原来的代码是：
for /f "delims=" %%f in ('dir /s /b *.jpg') do copy "%%f" c:\fun

for /f "delims=" %%f in ('dir /s /b *.gif') do copy "%%f" c:\fun

请教一下，如何改为可以重名自动重命名的代码？

谢谢各位前辈大大！！！

ihtyuu

重命名的名字，最好是在原名基本上改，比如：原来是叫a，改为a1

Nsqs

@echo off
for /r %%1 in (*.txt)do (
if defined %%~nx1 (
set/a #+=1,#1=#/100 %% 10,#2=#/10 %% 10,#3=#/1 %% 10
call echo ren "%%1" %%~n1%%#1%%%%#2%%%%#3%%%%~x1 %%去掉echo即可重命名%%
)
set %%~nx1=;
)
复制代码

ihtyuu

大侠，好像你这个代码不对吧？

pcl_test

假设目标文件夹为空文件夹

/*&cls
@echo off
set "fd=C:\fun"
if not exist "%fd%" md "%fd%"
for /f "tokens=1*delims=|" %%a in ('dir /a-d/b/s *.jpg *.gif^|cscript -nologo -e:jscript "%~f0"') do copy "%%a" "%fd%\%%b"
pause&exit
*/

var a = {}, s = '';
try{
    var files = WSH.StdIn.ReadAll().split(/\r\n/);
    for(var i = 0; i<files.length; i++){
        var f = files[i].replace(/^.+\\([^\\]+)(\.[^\.]+)$/, function($0, $1, $2){
            var name = ($1 + $2).toLowerCase();
            if(!a[name]){
                a[name] = 1;return $0 +'|'+ $1 +$2;
            }else{
                a[name]++;return $0 +'|'+ $1 +'_'+ (a[name]-1) +$2;
            }
        })
        s += f+'\r\n';
    }
    WSH.echo(s)
}catch(e){}
复制代码

ihtyuu

我是有好多图片在一个文件夹以及其子文件夹里，它们的名字有可能会是一样的，但图片却不是一样的，所以，我不想让同名的图片被覆盖掉。

pcl_test

假设目标文件夹已有或没有文件

/*&cls
@echo off
set "fd=C:\fun"
if not exist "%fd%" md "%fd%"
(dir /a-d/b/s *.jpg *.gif)|cscript -nologo -e:jscript "%~f0" "%fd%"
pause&exit
*/

var fso = new ActiveXObject('Scripting.FileSystemObject');
var fd = WSH.Arguments(0);

try{
    var files = WSH.StdIn.ReadAll().split(/\r\n/);
    for(var i = 0; i<files.length; i++){
        var fname = fso.GetFile(files[i]).Name;
        var fn = fname.replace(/\.[^\.]+$/, '');
        var t = 0, file = fd +'\\'+ fname;
        while(fso.FileExists(file)){
            t++;
            var file = fd +'\\'+ fn +'_'+ t +'.'+ fname.split('.').pop();
        }
        fso.CopyFile(files[i], file);
    }
}catch(e){}
复制代码

ihtyuu

多谢版主！！！:):victory: