Histórico da Página

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 possivel 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   	EndIf   	    	//Tenta realizar o download de um item qualquer no array   	//Armazena no local indicado pela constante PATH	if !FTPDOWNLOAD( PATH + aRetDir[1][1], aRetDir[1][1])   		conout( "Nao foi possível realizar o download!!" )   		Return NIL   	EndIf             //Tenta renomear um arquivo ou diretório	if !FTPRENAMEFILE( aRetDir[1][1] , "novo" )		conout( "Nao foi possível renomear o arquivo!!" )   		Return NIL   	EndIfReturn