>When the program runs at this line. "lnRemote" return zero.
>*************************
>lnRemote=FtpOpenFile(This.nFTPSession,This.cRemoteFile,0x40000000,2,0)
>*************************
>
>I sent you my FTP website information to your email address. Please check it.

It seems you do not have upload priviledge. That's the only think I could see presently.