1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Duvida Data de criação de um arquivo

Discussão em 'Progress 4GL' iniciado por Guilherme.Moles, Dezembro 20, 2018.

  1. Guilherme.Moles

    Guilherme.Moles Membro Participativo

    Bom dia a todos,

    Estou varrendo várias pastas no servidos via código, procurando alguns arquivos específicos mas eu gostaria de saber a data de criação desse arquivo.

    Eu consigo fazer isso via Progress?
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    input from os-dir(....).
  3. Guilherme.Moles

    Guilherme.Moles Membro Participativo

    @bootstrapmaster Varrer a pasta eu já estou fazendo, eu queria mesmo é saber a data de criação dos arquivos.
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    então, esse comando ai, quando vc faz o import, ele traz todos os dados do arquivo, vc olhou isso ???
  5. LeandroSantos

    LeandroSantos Membro Participativo

    Código:
    assign
       file-info:file-name = "C:\Windows\notepad.exe".
    
    disp
       file-info:full-pathname format "X(40)" skip
       file-info:file-type skip
       file-info:file-size "KB" skip
       "Data Criacao    " file-info:file-create-date string(file-info:file-create-time,"HH:MM:SS") skip
       "Data Modificacao" file-info:file-mod-date string(file-info:file-mod-time,"HH:MM:SS") skip.
    
  6. joelscampos

    joelscampos Membro Participativo

    Exemplo:

    Código:
    DEF TEMP-TABLE tt-files NO-UNDO
        FIELD nomeArquivo   AS CHAR FORMAT "x(50)"
        FIELD fullPath      AS CHAR
        FIELD tipo          AS CHAR.
    
    INPUT FROM OS-DIR('c:\tmp\').
    REPEAT:
        CREATE tt-files.
        IMPORT tt-files.
        FILE-INFO:FILE-NAME = tt-files.fullPath.
        IF tt-files.tipo = 'f'
        THEN DO:
            DISP
                tt-files.nomeArquivo
                FILE-INFO:FILE-CREATE-DATE FORMAT '99/99/9999'
                STRING(FILE-INFO:FILE-CREATE-TIME,'HH:MM:SS')
                WITH VIEW-AS DIALOG-BOX SIZE 120 BY 30.
        END.
    END.
    PAUSE.
    INPUT CLOSE.
    

Compartilhe esta Página