Schlagwort: directory_browse

DATA: fldr TYPE string.

TRY.
    cl_gui_frontend_services=>directory_browse(
        EXPORTING
          initial_folder  = 'c:\'
        CHANGING
          selected_folder = fldr ).

    WRITE: / fldr.

  CATCH cx_root INTO DATA(e_txt).          " Oberklasse für Exceptions abfangen und Kurztext übergeben
    MESSAGE e_txt->get_text( ) TYPE 'I'.   " Exception Kurztext ausgeben
ENDTRY.