1
*&---------------------------------------------------------------------*
2
*& Include ZSOFTCOPY__CL_GUI_UNKNOWN *
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_len TYPE i,
39
l_char TYPE c.
40
41
CALL FUNCTION 'WS_FILENAME_GET'
42
EXPORTING
43
def_path = p_folder
44
mask = ',*.txt,*.txt.'
45
mode = 'O'
46
title = 'Choose a directory'
47
IMPORTING
48
filename = c_selected_folder
49
EXCEPTIONS
50
OTHERS = 1.
51
c_subrc = sy-subrc.
52
IF c_subrc = 0 AND NOT c_selected_folder IS INITIAL.
53
DO.
54
l_len = strlen( c_selected_folder ).
55
l_len = l_len - 1.
56
l_char = c_selected_folder+l_len(1).
57
IF l_len = 0.
58
EXIT.
59
ENDIF.
60
c_selected_folder = c_selected_folder+0(l_len).
61
IF l_char = gc_delimiter.
62
63
64
ENDDO.
65
66
ENDFORM. "cl_gui_get_folder