Página 1 de 1
Pegar conteudo de uma pasta
Enviado: 30 Mar 2007 15:35
por 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
Enviado: 30 Mar 2007 15:48
por vailton
O que seria CONTEUDO? Seria a listagem de arquivos!?
Se for um exemplo:
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,
Enviado: 01 Abr 2007 20:20
por Vander
Valeu Vailton;
Ajudou bastante.
Vander