Listar arquivos

[fglima]

Preciso pegar os arquivos de um determinado diretório e adcionar a um vetor para criar um menu.

Alguem sabe com pegar o nome destes arquivos e adionar a um vetor??

[gvc]

veja ADIR e DIRECTORY.

[Stanis Luksys]

Ola,

Eu tenho uma rotina nos meus sistemas para abertura de relatorios previamente salvos utilizando o proprio programa.

Listo eles com Achoice , mas ou menos assim:

Código: Selecionar todos

declare Arq[ADir("..\RELAT\*.TXT")]
Adir("..\RELAT\*.TXT",Arq)

nContArq = LEN(Arq)

if nContArq > 0

    do while .t.

       nOpcao = ACHOICE(8,43,16,56,Arq)

       IF Opcao = 0
            RETURN
       ENDIF

       Relatorio = "..\RELAT\" + Arq[Opcao]

       ExibeRelat(Relatorio)  // funcao que carrega o relatorio na tela

  enddo

else

etc etc etc

Espero ter colaborado...

[fglima]

Obrigado a todos
as rotinas me ajudaram e muito