- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ler arquivos de subpastas
×
Linguagem de Programação ADVPL
Perguntas Ler arquivos de subpastas
- rodrigolparaujo
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 78
- Obrigados Recebidos: 0
11 anos 2 semanas atrás #19029
por rodrigolparaujo
Ler arquivos de subpastas foi criado por rodrigolparaujo
Bom dia!
Alguém saberia me dizer como faço para ler todos os arquivos de subpastas, eu informo uma pasta como origem e o protheus ler todos os arquivos das subpastas existentes.
Ler os arquivos da pasta informada eu consigo, mas das subpastas deste diretorio nao consegui ler.
obrigado
Alguém saberia me dizer como faço para ler todos os arquivos de subpastas, eu informo uma pasta como origem e o protheus ler todos os arquivos das subpastas existentes.
Ler os arquivos da pasta informada eu consigo, mas das subpastas deste diretorio nao consegui ler.
obrigado
Por favor Acessar ou Registrar para participar da conversa.
- jubnm
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 3 semanas atrás #26321
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Ler arquivos de subpastas
Rodrigo Não testei, veja se funfa:
aFiles := Directory("c:\protheus11\projeto\*.prw", "D")
For nX := 1 to nCount
ConOut('Arquivo: ' + aFiles[nX,1] + ' - Size: ' + AllTrim(Str(aFiles[nX,2])) )
Next nX
O Parâmetro "D" deverá ler as subpastas.
tdn.totvs.com/pages/viewpage.action?pageId=23889341
aFiles := Directory("c:\protheus11\projeto\*.prw", "D")
For nX := 1 to nCount
ConOut('Arquivo: ' + aFiles[nX,1] + ' - Size: ' + AllTrim(Str(aFiles[nX,2])) )
Next nX
O Parâmetro "D" deverá ler as subpastas.
tdn.totvs.com/pages/viewpage.action?pageId=23889341
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ler arquivos de subpastas
Tempo para a criação da página:0.133 segundos