Question

bat所有文件夹下的文件从001开始重新命名？

就按照当前的文件顺序，将所有的文件从001.jpg,002.jpg....开始命名

Answer 1

不清楚你的实际文件/情况，仅以问题中的样例/说明为据
复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件夹放一起运行

<# :
cls
@echo off
rem 将多个子文件夹内的文件以指定位数的递增数字序号重命名
mode con lines=3000
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]::Default))) -Args '%~dp0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$path=$args[0].trimend('\');

Add-Type -TypeDefinition @'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
    [DllImport("Shlwapi.dll", CharSet = CharSet.Unicode)]
    public static extern int StrCmpLogicalW(string p1, string p2);
    public static string[] Sort(string[] f)
    {
        Array.Sort(f, StrCmpLogicalW);
        return f;
    }
}
'@;

$folders=@(dir -liter $path|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
    $n=10001;
    $files=@(dir -liter $folders[$i].FullName|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
    $list=[ExpDir]::Sort($files);
    for($j=0;$j -lt $list.Count;$j++){
        $oldfile=$folders[$i].FullName+'\'+$list[$j];
        $f=gi -liter $oldfile;
        $newname=$n.toString().Substring(1)+$f.Extension;
        $newfile=$folders[$i].FullName+'\'+$newname;
        write-host ($folders[$i].Name+'\'+$list[$j]+' --> '+$newname);
        $n++;
    };
};

追问

一个A文件夹里面有B和C等若干个子文件夹,子文件夹里有多个不同类型的图片，将B和C文件夹里面的文件按原文件名称的排列顺序按 001,002,003....的顺序重新命名，批处理文件放在A文件夹执行

追答

按运行后窗口标题栏中的提示联系我