Mover e Renomear Arquivos de um diretório

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!

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.