Choose path to download file .

"Definition of data for get download path DATA : fullpath       TYPE                   string,         filename       TYPE                   string,         path           TYPE                   string,         user_action    TYPE                   i,         encoding       TYPE                   abap_encoding.   IF p_file IS INITIAL.    CALL METHOD cl_gui_frontend_services=>file_save_dialog      EXPORTING        window_title         = 'Gui_Download Demo'        with_encoding        = 'X'        initial_directory    = 'D:\SAP'      CHANGING        filename             = filename        path                 = path        fullpath             = fullpath        user_action          = user_action        file_encoding        = encoding      EXCEPTIONS        cntl_error           = 1        error_no_gui         = 2        not_supported_by_gui = 3        OTHERS               = 4.      IF sy-subrc <> 0.      EXIT.    ENDIF.      IF user_action <> cl_gui_frontend_services=>action_ok.      EXIT.    ENDIF.   ELSE.    fullpath = p_file.   ENDIF.   CALL FUNCTION 'GUI_DOWNLOAD'    EXPORTING      filename                = fullpath      filetype                = 'DAT'    TABLES      data_tab                = it_top             " download internal table    EXCEPTIONS      file_write_error        = 1      no_batch                = 2      gui_refuse_filetransfer = 3      invalid_type            = 4      no_authority            = 5      unknown_error           = 6      header_not_allowed      = 7      separator_not_allowed   = 8      filesize_not_allowed    = 9      header_too_long         = 10      dp_error_create         = 11      dp_error_send           = 12      dp_error_write          = 13      unknown_dp_error        = 14      access_denied           = 15      dp_out_of_memory        = 16      disk_full               = 17      dp_timeout              = 18      file_not_found          = 19      dataprovider_exception  = 20      control_flush_error     = 21      OTHERS                  = 22. IF sy-subrc <> 0.    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF .