Abaixo temos um exemplo em progress de como mover e renomear um arquivo usando comandos do DOS pelo OS-COMMAND.
define variable vArquivo as character no-undo. define variable vDestino as character no-undo. /* Verifica se o arquivo existe */ if SEARCH("C:\arquivo.txt") <> ? then assign vArquivo = "C:\arquivo.txt". ELSE if SEARCH("D:\arquivo.txt") <> ? then assign vArquivo = "D:\arquivo.txt". if vArquivo = "" then do: MESSAGE "Aquivo não encontrado!" VIEW-AS ALERT-BOX INFO BUTTONS OK. leave. END. assign vDestino = "C:\Processados\". /* Verifica se a pasta existe */ assign FILE-INFO:FILE-NAME = vDestino. /* Se não a pasta não existir cria */ if FILE-INFO:FULL-PATHNAME = ? then OS-COMMAND NO-CONSOLE VALUE("MD " + vDestino ). /* Prepara o destino e o novo nome para o arquivo */ assign vDestino = vDestino + "arquivo-processado.txt". OS-COMMAND NO-CONSOLE VALUE("MOVE " + vArquivo + " " + vDestino ).
Outra forma de renomear um arquivo é através do OS_RENAME, veja um exemplo clicando aqui!