SELECT A DIRECTORY / FOLDER

ABAP - SELECT A DIRECTORY / FOLDER
Salam ABAP HR Indonesia !

suatu waktu ada request user untuk download file di folder tertentu, atau membaca fiel di folder tertentu dari PC mereka. pada saat program jalan kemudian memilih folder / Directory maka diperlukan code dibawah ini.

REPORT ZTEST NO STANDARD PAGE HEADING LINE-SIZE 255.

* Select Directory / Folder in Local Computer
TYPE-POOLS SSCR.
DATA: STRINGPATH TYPE STRING.
DATA RESTRICT TYPE SSCR_RESTRICT.

PARAMETERS: P_PATH LIKE RLGRAP-FILENAME.

INITIALIZATION.
* set default value 
  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
       EXPORTING
            RESTRICTION = RESTRICT.
  IF SY-BATCH IS INITIAL.
    CALL FUNCTION 'WS_ULDL_PATH'
         IMPORTING
              DOWNLOAD_PATH = P_PATH.
  ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PATH.
  STRINGPATH = P_PATH.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE
     EXPORTING
       INITIAL_FOLDER  = STRINGPATH
    CHANGING
      SELECTED_FOLDER = STRINGPATH.
  CALL METHOD CL_GUI_CFW=>FLUSH.
  P_PATH = STRINGPATH.


START-OF-SELECTION.

* your code here ....


END-OF-SELECTION.

hasilnya