Cacher is the code snippet organizer for pro developers

  AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_loc.
  PERFORM file_from_pc.
  
  form file_from_pc.
  
  DATA: l_dir   TYPE string.

* Browse the Directories
  CALL METHOD cl_gui_frontend_services=>directory_browse
*     EXPORTING
*       WINDOW_TITLE        =
*      INITIAL_FOLDER       =
    CHANGING
      selected_folder      = l_dir
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.

  p_file = l_dir.
  
  endform file_from_pc.