파일 저장경로

• Create Date   : 2010-12-01
• Change Date : 2010-12-01

---

잡담 -ㅂ-;
이거 쓰고 회식감... k사 마지막 회식!

---

파일 다운로드 팝업 두 가지,
한가지는 주석처리함.(파일이름지정)
주석 풀린거는 폴더만 지정가능

  DATA : gv_fname LIKE rlgrap-filename, "VALUE
       gv_fname_tmp  TYPE string,
       gv_fsize      TYPE i.


START-OF-SELECTION.


  CLEAR gv_fname.

*  CALL FUNCTION 'F4_FILENAME'
*    EXPORTING
*      program_name  = ''
*      dynpro_number = ''
*      field_name    = 'FILENAME'
*    IMPORTING
*      file_name     = gv_fname.
*
*  if gv_fname is INITIAL.
*    MESSAGE E000 WITH '파일이름을 지정해주세요.'.
*  endif.




*  data: pFolder like rlgrap-filename.
  CLEAR gv_fname.
  DATA: objfile TYPE REF TO cl_gui_frontend_services.
  DATA: pickedfolder TYPE string.
  DATA: initialfolder TYPE string.

  CREATE OBJECT objfile.

  IF NOT gv_fname IS INITIAL.
    initialfolder = gv_fname.
  ELSE.
    objfile->get_temp_directory( CHANGING temp_dir = initialfolder
                                 EXCEPTIONS cntl_error = 1
                                           error_no_gui = 2
                                           not_supported_by_gui = 3 ).
  ENDIF.

  objfile->directory_browse( EXPORTING initial_folder = initialfolder
                             CHANGING selected_folder = pickedfolder
                             EXCEPTIONS cntl_error = 1
                                        error_no_gui = 2
                                        not_supported_by_gui = 3 ).

  IF sy-subrc = 0.
    CONCATENATE pickedfolder '\Posting_M.XLS'
    INTO gv_fname.
*    gv_fname = pickedfolder.
  ELSE.
    MESSAGE s000 WITH'An error has occured picking a folder'
    DISPLAY LIKE 'E'.
    LEAVE LIST-PROCESSING.
  ENDIF.