Renomear vários arquivos
Exemplo para renomear todos os arquivos de um diretório:
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.
