... LOCAL oFile, h, cBuff, nSize, nRead, nWrite LOCAL lRet := .F. oFile := TFtpFile():New(cFTPDir+cFile,oFtp) oFile:OpenWrite() if oFile:hFile > 0 h := fOpen(cFile) nSize := fSeek(h,0,2) fSeek(h,0,0) cBuff := Space(nSize) nRead := fRead(h,@cBuff,nSize) fClose(h) ...