FTPErase - Apaga arquivo no diretório

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         //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 excluir o arquivo do diretório do FTP.         if !FTPERASE( aRetDir[1][1] )		conout( "Nao foi possivel excluir o arquivo!!" )   		Return NIL   	EndIfReturn NIL