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
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
57
selected_folder = c_selected_folder
58
59
60
c_subrc = sy-subrc.
61
ENDFORM. "cl_gui_get_folder