:shock: Fala ai galera, sou eu novamente! Seguinte: Preciso ler os nomes de TODOS os arquivos (conforme a extensão desejada pelo usuário), de um determinado diretório, mas se o mesmo tiver sub-pasta, ler também. Alguem tem alguma dica? Sds, Edson
Caro amigo roinfo, Sou grato pela sua ajuda! Eu Já havia tentado esta opção, mais não atende a minha necessidade. Pois neste exemplo, eu teria que saber o nome do arquivo. Mais é justamente isso que quero descobrir... quais os nomes dos arquivos que estão em determinado diretório que o usuário escolher e se este tiver sub-pastas verificar nelas também, entendeu? Sds, Edson
este vc consegue ver o subdiretorio Código: def var dir-name as character no-undo format "x(80)". def var arq-name as character no-undo format "x(60)". assign dir-name = "dir c:\temp\*.doc c:\temp\*.txt c:\temp\*.lst c:\temp\*.pdf c:\temp\*.p c:\temp\*.ped /s /b" /*** /s - subdiretorios e /b - modo verboso ***/. input through value(dir-name) no-echo. repeat: import unformatted arq-name. disp arq-name. end. input close.
Outra maneira Código: DEFINE STREAM dirlist. DEFINE VARIABLE filename AS CHARACTER FORMAT "x(30)" NO-UNDO. INPUT STREAM dirlist FROM OS-DIR("."). REPEAT: IMPORT STREAM dirlist filename. DISPLAY filename. END. INPUT CLOSE.
