PROCEDURE diretorio_criar_servidor()
s_nome_Diretorio is string
Input("Nome do Diretorio:",s_nome_Diretorio)
IF s_nome_Diretorio<>"" THEN
FTPMakeDir(n_conexao,SAI_Diretorio_Remoto+s_nome_Diretorio)
diretorio_mostra_remoto()
ELSE
Info("nao foi criado Diretorio, pois nao foi informado nome")
END

//http://doc.windev.com/en-US/?1000003040001&name=FTPMakeDir_example
//Blog com Video Explicando
//http://windevdesenvolvimento.blogspot.com.br/2016/01/windev21-curso-212-ftp-criando.html