Descricao Abaixo veja um exemplo de como pegar informações de arquivos. Uso Comparar data de criação e modificao de dois arquivos, controlar tamanho de arquivos, para poder quebrar em mais de um. Exemplo 1 Código: assign file-info:file-name = "c:\pagefile.sys". message "Modificacao : " FILE-INFO:FILE-MOD-DATE STRING(FILE-INFO:FILE-MOD-TIME,"HH:MM") SKIP "Caminho: " FILE-INFO:FULL-PATHNAME SKIP "Tipo de Arquivo : " FILE-INFO:FILE-TYPE SKIP "Tamanho: " STRING(FILE-INFO:FILE-SIZE / 1024,">>>,>>>,>>>") SKIP "Criacao: " FILE-INFO:FILE-CREATE-DATE STRING(FILE-INFO:FILE-CREATE-TIME,"HH:MM") SKIP VIEW-AS ALERT-BOX. FILE-TYPE retorna uma STRING, os principais retornos são "D" Se for um diretório , "X" Quando o tipo é desconhecido, "F" se FOR arquivo. Exemplo 2 Código: DEFINE VARIABLE arquivo-original AS CHARACTER FORMAT "x(60)" LABEL "Original". DEFINE VARIABLE arquivo-bkp AS CHARACTER FORMAT "x(60)" LABEL "Bkp". DEF VAR criacao-original AS DATE. ASSIGN arquivo-original = "c:\pagefile.sys". ASSIGN arquivo-bkp = "c:\CONFIG.SYS". ASSIGN file-info:file-name = arquivo-original. ASSIGN criacao-original = FILE-INFO:FILE-CREATE-DATE. ASSIGN file-info:file-name = arquivo-Bkp. MESSAGE "Original " criacao-original SKIP "Bkp " FILE-INFO:FILE-CREATE-DAT VIEW-AS ALERT-BOX INFO BUTTONS OK. Fonte: http://progressetecnologia.blogspot.com ... uivos.html
