How to select directory path in a selection screen

Question

Hi ,
We can select a file path using the below statement :
DATA : P_FILE  TYPE RLGRAP-FILENAME.
But how can the similar be achieved for a directory, that is if one wants to select a folder.
Folder path can be retrieved from the function : "TMP_GUI_BROWSE_FOR_FOLDER" but this doesnt give us the privilege of displaying the path selected in a parameter form as is with the file type.
Any kind of help would be apprecialble.
Thanks!!!!

Answer 1

Hi,
    Try with below Method
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : p_file LIKE rlgrap-filename MODIF ID ccc.
SELECTION-SCREEN END OF BLOCK b2.
*     AT SELECTION SCREEEN                                               *
AT SELECTION-SCREEN ON VALUE-REQUEST  FOR p_file.
  PERFORM f4_filename.
AT SELECTION-SCREEN ON p_file.
  IF p_file IS INITIAL.
    MESSAGE 'Please fill the path' TYPE 'E'.
  ENDIF.
*     START OF SELECTION                                              *
START-OF-SELECTION.
*&      Form  F4_FILENAME
*       Get the file from presenation server
FORM f4_filename .
  DATA : lit_filetable TYPE filetable,
         lw_rc TYPE i.
*  Get file from presentation system
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'Find File'                 "#EC NOTEXT
*    DEFAULT_EXTENSION       =
*    DEFAULT_FILENAME        =
      file_filter             = '*.*'
      initial_directory       = 'C:\'
*    MULTISELECTION          =
*    WITH_ENCODING           =
    CHANGING
      file_table              = lit_filetable
      rc                      = lw_rc
*    USER_ACTION             =
*    FILE_ENCODING           =
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
  IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*  Read file name into variable
  READ TABLE lit_filetable INTO p_file INDEX 1.
ENDFORM.                    " F4_FILENAME
Regards
Bala Krishna