如何移动多个文件名？

Question

在工作中，我不得不重命名 650 个文件。结果发现我跳过了中间的一个文件。所以我添加了它，但现在我必须从我添加的文件中获取后续文件的名称，并将它们全部上移 1 个“位置”。

以下是屏幕截图：

“01_21reaaaallll” 之后的所有文件名必须向上移动一个位置，因此“01_21”将取代“01_21reaaallll”，依此类推。

有办法吗？只需移动文件名，这样我就不必再次重命名每个文件了？

Answer 1

这可以通过以下方式实现重命名器。

所谓的“移位”新名称是通过添加带有脚本的重命名规则来实现的（见下文）。要使此操作有效，必须按名称列对文件进行排序，因为文件是按顺序处理的（从上到下）。第一个文件以随机字符作为前缀，因此它不会干扰下一个文件。

它看起来是这样的：

笔记：您可以忽略验证警告。它只是告诉您目标文件已存在，但顺序重命名仍将按预期进行。

以下是 ReNamer 中 PascalScript 规则使用的脚本：

var
  Temp, Previous: WideString;
begin
  if Previous = '' then
  begin
    Previous := FileName;
    FileName := '@' + FileName;
  end
  else
  begin
    Temp := FileName;
    FileName := Previous;
    Previous := Temp;
  end;
end.