在SELECTION-SCREEN中的源代碼
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_path LIKE rlgrap-filename DEFAULT 'C:'. " Download file path(On-Line)
SELECTION-SCREEN END OF BLOCK b1.
在AT SELECTION-SCREEN中的源代碼
***** F4 for search help for download directory path **************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
PERFORM get_download_path CHANGING p_path.
FORM get_download_path CHANGING p_file.
DATA: l_path TYPE string.
DATA: l_len TYPE i.
CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
window_title = 'Select Your Folder'
initial_folder = 'C:'
CHANGING
selected_folder = l_path
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
MOVE l_path TO p_file.
l_len = STRLEN( l_path ).
IF l_len > 3.
CONCATENATE p_file '' INTO p_file.
ENDIF.
ENDFORM. " download directory path
[@more@]来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/90072/viewspace-928362/ ，如需转载，请注明出处，否则将追究法律责任。
