vba - 按顺序重命名 Zip 文件

Question

我想通过 Sched 任务每 30 分钟重命名一个 zip 文件。

文件清单：

BULK_CALL1.ZIP BULK_CALL2.ZIP BULK_CALL3.ZIP 等等。

进入：

BULK_CALL.ZIP BULK_CALL2.ZIP BULK_CALL3.ZIP 等等。

BULK_CALL.ZIP 将被程序删除。因此，在 30 分钟内，我希望将 BULK_CALL2.ZIP 重命名为 BULK_CALL.ZIP 等等，直到所有文件都处理完毕。

Answer 1

@ECHO OFF
IF NOT EXIST bulk_call.zip FOR %%i IN (bulk_call*.zip) DO REN %%i bulk_call.zip&GOTO :eof

可以做你想做的事——取决于对你要求的更好解释。

您是否担心文件的处理顺序 - 无论是调用bulk_call?.zip还是test?.txt

所需的顺序是日期顺序吗？

如果是这样，请尝试

@ECHO OFF
IF NOT EXIST bulk_call.zip FOR /f %%i IN ( 
  ' dir /b /a-d /od bulk_call*.zip ' ) DO REN %%i bulk_call.zip&GOTO :eof

Answer 2

使用 VBA... 要重命名文件名，请使用以下语法：

Name "BULK_CALL.ZIP" As "BULK_CALL2.ZIP"

要在 30 分钟的时间使用说明后重复该过程：

Application.OnTime 

您必须在其中添加两个参数。