renomear todos os arquivos de um diretório

Programinha de exemplo para renomear todos os arquivos de um diretório:

Código:

DEF VAR c-texto AS CHAR FORMAT "x(60)" NO-UNDO.
DEF VAR c-diretorio AS CHAR NO-UNDO.
DEF VAR c-caminho AS CHAR NO-UNDO.
DEF VAR c-comando AS CHAR NO-UNDO.
DEF VAR c-arq-orig AS CHAR FORMAT "x(60)" NO-UNDO.
DEF VAR c-arq-dest AS CHAR FORMAT "x(60)" NO-UNDO.

ASSIGN c-diretorio = "c:\temp\" c-comando = "dir /b " + c-diretorio + "*.bmp".

INPUT THROUGH VALUE(c-comando)./*** dir /b - lista os arquivo no modo verboso ****/

REPEAT : IMPORT UNFORMATTED c-texto.
ASSIGN c-arq-orig = c-diretorio + c-texto
c-arq-dest = c-diretorio + ENTRY(1,c-texto,".") + "0." + ENTRY(2,c-texto,".").

DISP c-texto c-arq-orig c-arq-dest.
OS-RENAME VALUE(c-arq-orig) VALUE(c-arq-dest).
END.
INPUT CLOSE