写点什么

ABAP 获取本地路径

作者:Jasen Ye
  • 2022 年 3 月 24 日
  • 本文字数:827 字

    阅读完需:约 3 分钟

ABAP 获取本地路径

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
用户头像

Jasen Ye

关注

还未添加个人签名 2022.03.23 加入

还未添加个人简介

评论

发布
暂无评论
ABAP 获取本地路径_abap_Jasen Ye_InfoQ写作平台