Nesse vídeo demonstraremos em como listar arquivos de uma pasta em um Array usando as funções aDir e Directory.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe027 Exemplo de funções que buscam pastas e arquivos dentro de uma pasta através da aDir e Directory @type Function @author Atilio @since 26/11/2022 @see https://tdn.totvs.com/display/tec/ADir e https://tdn.totvs.com/display/tec/Directory @obs Função aDir Parâmetros + cEspecArq - Caractere - Indica o diretório de pesquisa + aNomesArq (Opcional) - Array - Indica o Array com nome dos arquivos + aTamanhos (Opcional) - Array - Indica o Array com tamanho dos arquivos + aDatas (Opcional) - Array - Indica o Array com data dos arquivos + aHoras (Opcional) - Array - Indica o Array com horas dos arquivos + aAtributos (Opcional) - Array - Inclui pastas e outros atributos (no link do TDN acima tem todos os tipos) + lChangeCase (Opcional) - Lógico - .F. mantém o nome do arquivo e .T. transforma para minúsculo Retorno + nRet - Numérico - Quantidade de arquivos Função Directory Parâmetros + cDirEsp - Caractere - Indica o diretório de pesquisa + cAtributos (Opcional) - Caractere - Inclui pastas, arquivos ocultos (no link do TDN acima tem todos os tipos) + uParam1 (Opcional) - Indefinido - Compatibilidade + lCaseSensitive (Opcional) - Lógico - .F. mantém o nome do arquivo e .T. transforma para maiúsculo + nTypeOrder (Opcional) - Numérico - Tipo de Ordenação (1 nome do arquivo, 2 data do arquivo e 3 tamanho do arquivo) Retorno + aRet - Array - Retorna um Array com os detalhes dos arquivos da pasta **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe027() Local aArea := FWGetArea() Local aArqui1 := {} Local aArqui2 := {} //Busca arquivos via aDir aDir("C:\spool\*.*", aArqui1) //Busca arquivos via Directory aArqui2 := Directory("C:\spool\*.*") FWAlertInfo("Tamanho do aArqui1: " + cValToChar(Len(aArqui1)) + ", aArqui2: " + cValToChar(Len(aArqui2)), "Atenção") FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.