Pegar conteudo de uma pasta

[Vander]

Olá amigos;

Alguém poderia dar uma dica de como pegar o conteúdo de uma pasta e enviar para um arquivo TXT.
NOTA - A pasta em questão é fixa.

Valeu;
Vander

[vailton]

O que seria CONTEUDO? Seria a listagem de arquivos!?

Se for um exemplo:

Código: Selecionar todos

RUN DIR C:\PATH\*.* > C:\L.TXT

Ou se quiser só os nomes, pode pegar via ARRAY:

Código: Selecionar todos

aFiles := directory( "c:\windows\system32\*.*")
Str     := {}
aEval( aFiles, {|a| aadd( Str, a[1] ) })

Ou se precisar so dos nomes em .TXT ou string, pode:

Código: Selecionar todos

aFiles := directory( "c:\windows\system32\*.*")
Str     := ""
aEval( aFiles, {|a| Str += a[1] + chr(13)+chr(10) })

memowrit( 'c:\t.txt', Str )

Espero ter ajudado,

[Vander]

Valeu Vailton;

Ajudou bastante.

Vander