Lendo informações de arquivos

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

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

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.