import.css=/download/attachments/6062824/tecnologia.css |
Retorna um array com o conteúdo de um diretório.
Consulte a função ADir para outras funcionalidades.
Esta função não opera no SmartClient HTML, pois quando executado via navegador o sistema não tem acesso aos arquivos da estação de trabalho. |
Directory( < cDirEsp >, [ cAtributos ], [ uParam1 ], [ lConvertCase ], [ nTypeOrder ] ) |
Nome | Tipo | Descrição | Obrigatório | Referência | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
cDirEsp | caractere | Indica o diretório para pesquisa.
| X | ||||||||||||||
cAtributos | caractere | Indica quais tipos de arquivos/diretórios devem ser incluídos no array.
Para mais detalhes, consulte a Tabela A abaixo:
| |||||||||||||||
uParam1 | numérico | Parâmetro de compatibilidade, não deve ser preenchido. | |||||||||||||||
lConvertCase | lógico | Se verdadeiro (.T.), os nomes de arquivos presentes serão retornados todos em MAIÚSCULO. Caso falso (.F.), os nomes de arquivos presentes são retornados como estão no disco rígido. | |||||||||||||||
nTypeOrder | numérico | Indica o tipo de ordenação do resultado da função.
|
Nome | Tipo | Descrição | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
aRet | vetor | Retorna um array que contém informações sobre cada arquivo / diretório que atenda aos requisitos
|
User Function Exemplo1() Local aFiles := {} Local nX local nCount aFiles := Directory("c:\garbage\*.*", "D") nCount := Len( aFiles ) For nX := 1 to nCount ConOut('Arquivo: ' + aFiles[nX,1] + ' - Size: ' + AllTrim(Str(aFiles[nX,2])) ) Next nX Return User Function Exemplo2() local F_NAME aDirectory := DIRECTORY("*.*", "D") F_NAME := Len(aDirectory) AEVAL(aDirectory, {|aFile| CONOUT(aFile[1])} ) Return User Function Exemplo3() Local aFiles := {} local nCount Local nX local flagparameters := "D:10000" //lista os arquivos entre 10.000 e 20.000, inclusive diretórios aFiles := Directory("c:\tmp\10kk\*.*", flagparameters, 1) nCount := Len( aFiles ) For nX := 1 to nCount ConOut('Arquivo: ' + aFiles[nX,1] + ' - Size: ' + AllTrim(Str(aFiles[nX,2])) ) Next nX Return |