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 realizar o upload de um item qualquer no array   	//Armazena no local indicado pela constante PATH	if !FTPUPLOAD( PATH, aRetDir[1][1] )		conout( "Nao foi possivel realizar o upload!!" )   		Return NIL   	EndIf		//Tenta desconectar do servidor ftp		FTPDISCONNECT()Return NIL