erlang 简单的ftp上传

-module(erl_ftp).

%% API
-export([main/1]).

main(_) ->
   {ok, Pid} = ftp:open("192.168.31.89", [{port, 2121}]),
   case ftp:user(Pid, "ftp1", "123") of
    ok ->
        noop;
    UserErr ->
        io:format("user ~p~n",[UserErr]),
        exit(user_error)
    end,
    {ok, FtpDir} = ftp:pwd(Pid),
   io:format("FtpDir ~p~n",[FtpDir]),
   ftp:type(Pid, binary),
   R= ftp:append(Pid, "G:/123/tsconfig.json", "/123/tsconfig.json"),
   io:format("ftp:open ~p~n",[R]),

   ftp:close(Pid).

保存名为erl_ftp  

使用命令  escript  erl_ftp 执行