赛跑网

 找回密码
 注册

QQ登录

只需一步,快速开始

快捷登录

查看: 2229|回复: 19

赛跑网-动态得到路径的几种方法

[复制链接]
发表于 2012-5-8 16:56:54 | 显示全部楼层 |阅读模式
ABAP开发中经常需要下载文件到本地或者上传本地文件到sap系统,那么关于文件的路径可以直接在代码中写死,当然也可以动态指定,介绍几种方法;
   1,这种是用OO的方式

   DATA:  l_wk_rc        TYPE i,
           l_it_file     TYPE filetable,
           l_wa_ftbl     TYPE file_table.
         CLEAR: l_wk_rc.
         REFRESH: l_it_file.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      initial_directory       = 'C:'
    CHANGING
      file_table              = l_it_file
      rc                      = l_wk_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
  IF sy-subrc = 0.
    READ TABLE l_it_file INDEX 1 INTO l_wa_ftbl.
    p_file = l_wa_ftbl-filename.
  ELSE.
    MESSAGE e999(fz) WITH 'Error for opening the dialog'.
  ENDIF.
2,如果觉得上面的那种方法复杂的话,还有个更简单的
游客,如果您要查看本帖隐藏内容请回复

3,还有个函数也可以实现动态的指定路径
PARAMETERS p_file TYPE IBIPPARMS-PATH.
  CALL FUNCTION 'TB_LIMIT_WS_FILENAME_GET'
   EXPORTING
*     DEF_FILENAME           = ' '
*     DEF_PATH               = ' '
     MASK                   = ',ALL.FILES,*.*.'
     MODE                   = 'O'
     TITLE                  = '选择文件'
   IMPORTING
     FILENAME               = p_file
*     PATH                   =
*     FILE                   =
   EXCEPTIONS
     SELECTION_CANCEL       = 1
     SELECTION_ERROR        = 2
     OTHERS                 = 3
            .
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
上述代码需放到AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file下。

最近访客

  • austin
    2022-03-24




上一篇:赛跑网-系统变量SY-SUBRC的一个特例
下一篇:赛跑网-选择屏幕加按钮实例
本楼点评(0) 收起
发表于 2012-5-22 10:42:09 | 显示全部楼层
看一下~~~
本楼点评(0) 收起
发表于 2012-6-2 09:43:15 | 显示全部楼层
谢谢分享谢谢
本楼点评(0) 收起
发表于 2012-6-27 20:27:57 | 显示全部楼层
动态得到路径的几种方法
本楼点评(0) 收起
发表于 2012-7-3 10:21:50 | 显示全部楼层
have a look~~
本楼点评(0) 收起
发表于 2012-7-10 21:37:08 | 显示全部楼层
本楼点评(0) 收起
发表于 2012-7-17 21:09:36 | 显示全部楼层
学习中。。。。
本楼点评(0) 收起
发表于 2012-11-4 12:39:54 | 显示全部楼层
学习
本楼点评(0) 收起
发表于 2013-1-22 12:52:22 | 显示全部楼层
来学习了
本楼点评(0) 收起
发表于 2013-1-22 12:53:08 | 显示全部楼层
来学习了
本楼点评(0) 收起
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|联系我们|赛跑网 ( QQ:108519493QQfsq

GMT+8, 2024-4-19 18:06 , Processed in 0.244691 second(s), 57 queries .

Powered by 91SAP X3.4

© 2001-2023 91sap Team.

快速回复 返回顶部 返回列表