Página 1 de 1
Listar arquivos
Enviado: 19 Set 2005 18:49
por 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??
Enviado: 19 Set 2005 19:28
por gvc
veja ADIR e DIRECTORY.
Enviado: 19 Set 2005 22:25
por 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...
Enviado: 19 Set 2005 23:47
por fglima
Obrigado a todos
as rotinas me ajudaram e muito