file() ver arquivos ocultos ou outra funcao

[narlem]

Olá,

Alguem sabe como faco para a funcao file() ver os arquivos ocultos por:
attrib +h arquivo
ou uma outra funcao que possa retornar esta informacao.

Narlem
BH-MG

[josenilson neiva]

Olá amigo,

voce pode usar a funcao Directory, que retorna uma matriz com os nomes, tamanhos, data, hora e atributos dos arquivos.

No caso mencionado, vc pode fazer o seguinte:

aFiles := Directory( "*.*" , "H" )

Todos os arquivos com o atributo H (oculto) serão inseridos na matriz aFiles.

Dai, para verificar se determinado arquivo existe, basta utilizar a funcao ASCAN. Veja o exemplo:



- Verificar se o arquivo TESTE.TXT (oculto) existe no diretorio:



aFiles := Directory( "*.*" , "H" )

If AScan( aFiles , { |aVar| aVar[1]=="TESTE.TXT" } ) > 0
? "O arquivo existe""
Else
? "O arquivo não existe!"
Endif