ABAP 连接ftp 并且创建文件夹

我会带着你远行 2022-10-27 05:13 280阅读 0赞

DATA :    
        p\_host   TYPE char64 VALUE '192.168.100.64 21',"  IP  
        p\_folder TYPE char255 VALUE '/aa/bb/',  "ftp 路径  
        p\_uname  TYPE char30 VALUE 'sys' , "用户名称  
        p\_pwd    TYPE char30 VALUE 'psword' . "用户密码  
  
DATA : dest     LIKE rfcdes-rfcdest  VALUE 'SAPFTP',  
            compress TYPE c  VALUE 'N'.  
  
DATA: hdl     TYPE i,  
      key     TYPE i VALUE 26101957,  
      slen    TYPE i,  
      cmd(80) TYPE c.  
  
slen = strlen( p\_pwd ).  
  
**\* "获取加密密码 保存到P\_PWD**  
CALL FUNCTION 'HTTP\_SCRAMBLE'  
  EXPORTING  
    source      = p\_pwd  
    sourcelen   = slen  
    key         = key  
  IMPORTING  
    destination = p\_pwd.  
  
**\* 连接ftp服务器**  
CALL FUNCTION 'FTP\_CONNECT'  
  EXPORTING  
    user            = p\_uname  
    password        = p\_pwd  
    host            = p\_host  
    rfc\_destination = dest  
  IMPORTING  
    handle          = hdl.  "连接的句柄

"IF SY-SUBRC <> 0.  
"\*-  &1失败  
"ELSE.  
"\*- 成功    
"ENDIF.

**"   新建文件夹 操作  通过ftp    .start  ..**  
data: begin of ig\_ftp\_result occurs 0,  
        line(100),  
      end of ig\_ftp\_result.  
DATA :  fild\_names\_one      TYPE char255 ,  
        fild\_names\_two      TYPE char255 ,  
        fild\_names\_three    TYPE char255 .  
fild\_names\_one = AA   ."这个AA 就是你要创建的文件夹名称  
CONCATENATE p\_folder  fild\_names\_one  INTO fild\_names\_two ."拼接ftp地址  
CONCATENATE 'mkdir' fild\_names\_two INTO fild\_names\_three SEPARATED BY ' '."因为ftp命令有个空格 所以还要继续拼接个空格进去  
call function 'FTP\_COMMAND'  
  exporting  
    handle = hdl  
    command =  fild\_names\_three "'运行ftp命令创建文件夹    这个是命令mkdir /home/ftp2018/SAPFiled/AA  ！！！！注意mkdir 后面有个空格  
  tables  
    data = ig\_ftp\_result  
  exceptions  
    tcpip\_error = 1  
    command\_error = 2  
    data\_error = 3  
  others = 4.  
  
IF SY-SUBRC <> 0.  
\*-  &1失败  
ELSE.  
\*-  &成功  
ENDIF.  
  
**"   新建文件夹 操作  通过ftp    .end ..**