ABAP 获取本地路径
作者:Jasen Ye
- 2022 年 3 月 24 日
本文字数:827 字
阅读完需:约 3 分钟

1.选择文件地址
一般用于选择要上载的文件,常见于批导程序
METHOD get_file_address.*****************************************************************示例:*** AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.**** 选择文件搜索帮助*** p_file = zcl_devp_tools=>get_instance( )->get_file_address( EXPORTING im_path = p_file ).************************************************************** DATA lv_filename TYPE rlgrap-filename.
* 选择文件搜索帮助 CALL FUNCTION 'WS_FILENAME_GET' EXPORTING def_path = im_path mask = ',*.XLS;*.XLSX;*.XML;' "',*.xlsx,*.XLSX,*.xls,*.XLS.' mode = '0' title = '导入文件' IMPORTING filename = lv_filename EXCEPTIONS inv_winsys = 1 no_batch = 2 selection_cancel = 3 selection_error = 4 OTHERS = 5.
IF sy-subrc <> 0 AND sy-subrc <> 3. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.
* 如果选择了文件 IF sy-subrc = 0 AND lv_filename IS NOT INITIAL. ex_path = lv_filename. ENDIF.
ENDMETHOD.复制代码
2.选择文件夹路径
一般用于选择下载的路径
METHOD get_folder_path.
CALL METHOD cl_gui_frontend_services=>directory_browse EXPORTING window_title = 'Select Folder' initial_folder = 'C:\' CHANGING selected_folder = o_path EXCEPTIONS cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4.
ENDMETHOD.复制代码
以上
如果错误,欢迎指正
划线
评论
复制
发布于: 刚刚阅读数: 2
版权声明: 本文为 InfoQ 作者【Jasen Ye】的原创文章。
原文链接:【http://xie.infoq.cn/article/41fe4053da3cc90a4253d5096】。未经作者许可,禁止转载。
Jasen Ye
关注
还未添加个人签名 2022.03.23 加入
还未添加个人简介











评论