Renomear vários arquivos de uma vez

Veja um exemplo de como renomear vários arquivos em uma pasta de uma unica vez usando OS-RENAME pelo progress.

No exemplo abaixo estamos adicionando o trecho “-alterado” no fim do nome dos arquivos de Excel.

<pre class="lang:default decode:true ">DEFINE VARIABLE vArquivo   AS CHARACTER FORMAT "x(60)" NO-UNDO.
DEFINE VARIABLE vDiretorio AS CHARACTER NO-UNDO.
DEFINE VARIABLE osComando  AS CHARACTER NO-UNDO.
DEFINE VARIABLE arqOrigem  AS CHARACTER FORMAT "x(60)" NO-UNDO.
DEFINE VARIABLE arqDestino AS CHARACTER FORMAT "x(60)" NO-UNDO.

ASSIGN 
    vDiretorio = "C:\temp\" 
    osComando = "dir /b " + vDiretorio + "*.xls".

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

REPEAT : IMPORT UNFORMATTED vArquivo.
    ASSIGN arqOrigem = vDiretorio + vArquivo
    arqDestino = vDiretorio + ENTRY(1,vArquivo,".") + "-alterado." + ENTRY(2,vArquivo,".").
    
    DISP vArquivo arqOrigem arqDestino.
    OS-RENAME VALUE(arqOrigem) VALUE(arqDestino).
END.
INPUT CLOSE.</pre>