文件路径相关

CONSTANTS

:

 

            c_initial_folder  TYPE string  VALUE  'c:\' ,                        "起始目录

 

            c_title                    TYPE string  VALUE '选择文件存放目录' .               "TITLE  *--------------------------------------------------------------------*

"获取文件保存路径 *--------------------------------------------------------------------*

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR p_s_dir .

 

  CALL  METHOD cl_gui_frontend_services =>directory_browse

 

      EXPORTING

 

          window_title        = c_title                                                                                "File Directory'

 

          initial_folder    = c_initial_folder                                                        "windows c盘为本地目录起点

 

      CHANGING

 

          selected_folder  = l_localpath .                                    "输入的本地下载目录

 

  CALL  METHOD cl_gui_cfw =>flush .                                        "方法：Send Buffered Automation Queue to Front End

 

  p_s_dir  = l_localpath .

*--------------------------------------------------------------------*

 

  "获取文件路径 *--------------------------------------------------------------------*

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR p_moban .

 

  CALL  FUNCTION  'F4_FILENAME'

 

      EXPORTING

 

          dynpro_number  = syst -dynnr

 

          field_name        =  'PATH'

 

      IMPORTING

 

          file_name          = p_moban .                                        "文件路径

*--------------------------------------------------------------------* 获取文件路径 *--------------------------------------------------------------------*   CALL FUNCTION 'WS_FILENAME_GET'     EXPORTING       mask             = ',Excel Files,*.xls,All Files,*.*.'(101)       title             = '选择文件'(100)     IMPORTING       filename         = p_file     EXCEPTIONS       inv_winsys       = 1       no_batch         = 2       selection_cancel = 3       selection_error   = 4       OTHERS           = 5.   IF sy-subrc <> 0 AND sy-subrc <> 3.     MESSAGE e100(zdev) WITH '选择文件出错！'(007).   ENDIF.

*--------------------------------------------------------------------* 获取文件路径：下载时，弹出下载地址选择窗口 *--------------------------------------------------------------------* DATA:  lo_objdata LIKE wwwdatatab,           lo_mime LIKE w3mime,           lc_filename   TYPE string VALUE 'test01',             "默认文件名，用户可以修改           lc_path       TYPE   string ,                         "路径           lc_fullpath   TYPE string   ,                         "完整路径加名称    

  "保存下载的模板   CALL METHOD cl_gui_frontend_services=>file_save_dialog "调用保存对话框     EXPORTING       default_extension     = 'XLS'                         "保存类型       default_file_name     = lc_filename                   "文件名：test01     CHANGING       filename             = lc_filename                   "文件名       path                 = lc_path                       "地址，用户选择的时候赋值如d:\       fullpath             = lc_fullpath                   "文件路径：如d:\test01.xls     EXCEPTIONS       cntl_error           = 1       error_no_gui         = 2       not_supported_by_gui = 3       OTHERS               = 4.   IF lc_fullpath = ''.     MESSAGE   '不能打开excel' TYPE 'E'.   ENDIF.

另外有个函数可以校验文件是否存在 TMP_GUI_GET_FILE_EXIS