ABAPFTP连接.docVIP

FTP连接 FTP登录、FTP连接—FTP命令执行—FTP断开 1. FTP登录、FTP连接 ??data:? ??p_wa_ftp?like?zftplogin? p_handle?type?i ?p_text???type?string ?p_return?type?c， l_dstlen????????type??i,???????? ?l_key???????????type??i,???????? ?l_pwd(64)???????type??c.??? l_key??=?p_wa_ftp-ftpkey. l_pwd?=?p_wa_ftp-ftppwd. l_dstlen?=?strlen(?l_pwd?). call?function?HTTP_SCRAMBLE????exporting??????source??????=?l_pwd??????sourcelen???=?l_dstlen??????key?????????=?l_key????importing??????destination?=?l_pwd. ***调用FTP?CONNECT函数***??call?function?FTP_CONNECT?????exporting???????user???????????????????=????p_wa_ftp-ftpuser???????password???????????????=????l_pwd???????host???????????????????=????p_wa_ftp-ftphost???????rfc_destination????????=????p_wa_ftp-rfcdest?????importing???????handle?????????????????=????p_handle?????exceptions???????not_connected??????????=?1???????others?????????????????=?2. 2. FTP命令执行 ??l_cmd?=?p_cmd.***转换成小写***translate?l_cmd?to?lower?case. ***调用FTP?COMMAND函数执行FTP命令*** call?function?FTP_COMMAND????exporting??????handle????????=?p_handle??????command???????=?l_cmd??????compress??????=?N????tables??????data??????????=?p_itab_result????exceptions??????tcpip_error???=?1??????command_error?=?2??????data_error????=?3??????others????????=?4. 连接的执行结果信息都保存到p_itab_result中，通过整理p_itab_result可获得文件清单。 ***获取当前文件清单***??loop?at?l_itab_ftpfile?into?l_wa_ftpfile.????find?first?occurrence?of?c_file_prefix????????????????????????????????????in?l_wa_ftpfile-filename?results?l_wa_result.????if?sy-subrc?=?0?.??????????????????????????????????????????????????如找到了文件名称??????删除包含dir这样的数据内容***??????find?first?occurrence?of?c_comd_dir?????????????????in?l_wa_ftpfile-filename?results?l_wa_result1.??????if?sy-subrc??0.????????获取FTP文件名，并存放到Internal?table中***l_len?=?strlen(?l_wa_ftpfile-filename?)?-?l_wa_result-offset. l_wa_ftpfile-filename?=?l_wa_ftpfile-filename+l_wa_result-offset(l_len).????????move-corresponding?l_wa_ftpfile?to?g_wa_ftpfil