ABAP获取文件夹路径，及文件夹下所有文件

Posted 2020-12-03 ferzalez

 1 CALL METHOD cl_gui_frontend_services=>directory_browse
 2   EXPORTING
 3     window_title    = ‘File Directory‘
 4     initial_folder  = ‘C:‘
 5   CHANGING
 6     selected_folder = g_path.
 7 
 8 CALL METHOD cl_gui_cfw=>flush.
 9 CONCATENATE g_path ‘‘ INTO p_wqj.
10 
11 CLEAR:tab_g_filetab,tab_g_filetab[],g_filter.
12 
13 CALL METHOD cl_gui_frontend_services=>directory_list_files
14   EXPORTING
15     directory                   = g_path
16     filter                      = g_filter
17   CHANGING
18     file_table                  = tab_g_filetab[]
19     count                       = g_count
20   EXCEPTIONS
21     cntl_error                  = 1
22     directory_list_files_failed = 2
23     wrong_parameter             = 3
24     error_no_gui                = 4
25     not_supported_by_gui        = 5
26     OTHERS                      = 6.