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 加入
还未添加个人简介
评论