Properties SourceCde
txt
1
*&---------------------------------------------------------------------*
2
*&  Include           ZSOFTCOPY__CL_GUI                                *
3
*&                                                                     *
4
*&---------------------------------------------------------------------*
5
*&                                                                     *
6
*& This file is part of ZSOFTCOPY.                                     *
7
*&                                                                     *
8
*& ZSOFTCOPY is free software: you can redistribute it and/or modify   *
9
*& it under the terms of the GNU General Public License as published   *
10
*& by the Free Software Foundation, either version 3 of the License,   *
11
*& or any later version.                                               *
12
*&                                                                     *
13
*& ZSOFTCOPY is distributed in the hope that it will be useful,        *
14
*& but WITHOUT ANY WARRANTY; without even the implied warranty of      *
15
*& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
16
*& GNU General Public License for more details.                        *
17
*&                                                                     *
18
*& You should have received a copy of the GNU General Public License   *
19
*& along with ZDOWNLOAD. If not, see <http://www.gnu.org/licenses/>.   *
20
*&                                                                     *
21
*&---------------------------------------------------------------------*
22
*&                                                                     *
23
*&  Author:     Ruediger von Creytz     ruediger.creytz@globalbit.net  *
24
*&  Copyright:  globalBIT, LLC          http://www.globalbit.net       *
25
*&                                                                     *
26
*&---------------------------------------------------------------------*
27
 
28
 
29
*-----------------------------------------------------------------------
30
* cl_gui_get_folder
31
*-----------------------------------------------------------------------
32
FORM cl_gui_get_folder
33
  CHANGING
34
    c_selected_folder TYPE string
35
    c_subrc TYPE sysubrc.
36
 
37
  DATA:
38
  l_obj_file TYPE REF TO cl_gui_frontend_services,
39
  l_initial_folder TYPE string.
40
 
41
  CREATE OBJECT l_obj_file.
42
 
43
  IF NOT p_folder IS INITIAL.
44
    l_initial_folder = p_folder.
45
  ELSE.
46
    CALL METHOD l_obj_file->get_temp_directory
47
      CHANGING
48
        temp_dir = l_initial_folder
49
      EXCEPTIONS
50
        OTHERS   = 1.
51
  ENDIF.
52
 
53
  CALL METHOD l_obj_file->directory_browse
54
    EXPORTING
55
      initial_folder  = l_initial_folder
56
    CHANGING
57
      selected_folder = c_selected_folder
58
    EXCEPTIONS
59
      OTHERS          = 1.
60
  c_subrc = sy-subrc.
61
ENDFORM.                    "cl_gui_get_folder