ndianさん、こんばんは。

indianさんが行われた
行われた方法ですと
FtpCloseArchiveの引数は
FtpOpenArchive()の戻り値
じゃないでしょうか？

あとftp32.dllはunlha32.dllと同じく
ftpコマンドを引数に使用させる方法が
あるので、そちらを使った方が楽です。
-aとすれば、
FtpOpenArchive()/FtpAdd()/FtpCloseArchive()
を一気に実行してくれます。
また -iでプロセスの表示を出力しない。
-qでquietモードとなります。
ftp32cmd.txtを参照してください。
外部関数に
function long Ftp(long hwnd,string cmd,ref string buff,long size) ...
と定義し
long ll_buffsize = 1000
string ls_buff
ls_buff = space(ll_buffsize)
ll_hwnd = handle(Parent)
ls_cmd = \'-a ftp://lsi:lsi@ss49g1/pb/log/ C:\\WORK\\han020.xls\'
if not ftp(ll_hwnd,ls_cmd,ls_buff,ll_buffsize) = 0 then
　messagebox(\'\',\'失敗メッセージ\')
　reutrn
end if
みたいにできます。

Takaさんのレスと重複してしまいました。