Versões: | Advanced Protheus 5.07 , Advanced Protheus 5.08 , Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Espanhol , Inglês |
Cria um vetor com informações de diretórios e arquivos do FTP.
AP5FTP.PRW
FTPDirectory - Informações de diretórios e arquivos ( cMASCARA cATTR [ lPreservaCaixa ] ) --> aRetDir
A função FTPDirectory() retorna um vetor contendo informações dos diretórios e arquivos contidos no FTP.
Para que o exemplo abaixo funcione, é necessário que seu computador tenha sido configurado como um servidor ftp.#INCLUDE "protheus.ch"#DEFINE DEFAULT_FTP 21 #DEFINE PATH "\teste\"Function TestFTP() Local aRetDir := {} //Tenta se conectar ao servidor ftp em localhost na porta 21 //com usuário e senha anônimos if !FTPCONNECT( "localhost" , 21 ,"Anonymous", "[email protected]" ) conout( "Nao foi possível se conectar!!" ) Return NIL EndIf //Tenta mudar do diretório corrente ftp, para o diretório //especificado como parâmetro if !FTPDIRCHANGE( "/test" ) conout( "Nao foi possível modificar diretório!!" ) Return NIL EndIf //Retorna apenas os arquivos contidos no local aRetDir := FTPDIRECTORY( "*.*" , ) //Retorna os diretórios e arquivos contidos no local //aRetDir := FTPDIRECTORY( "*.*" , "D") //Verifica se o array está vazio If Empty( aRetDir ) conout( "Array Vazio!!" ) Return NIL EndIfReturn
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
cMASCARA | Caracter | Máscara dos arquivos a serem pesquisados | X | ||||||||||||||
cATTR | Caracter | Se for informado "D" a função retornará somente diretórios, se não for informado retornará somente arquivos | X | ||||||||||||||
lPreservaCaixa | Array of Record | Indica se o nome de arquivos e diretórios devem ser retornados respeitando caixa alta e baixa | .T. |