本地文件夹存在性判断和新建WS_QUERY / GUI_CREATE_DIRECTORY

BAPI:  WS_QUERY 

BAPI: GUI_CREATE_DIRECTORY

FORM frm_check_folder  USING  pv_path.
  DATA: lv_return.
  CHECK pv_path IS NOT INITIAL.
  "检查文件夹是否存在
  CALL FUNCTION 'WS_QUERY'
    EXPORTING
      filename       = pv_path
      query          = 'DE'
    IMPORTING
      return         = lv_return
    EXCEPTIONS
      inv_query      = 1
      no_batch       = 2
      frontend_error = 3
      OTHERS         = 4.
  "1:存在
  "0:不存在
  CHECK lv_return = 0.

  "不存在则新建
  CALL FUNCTION 'GUI_CREATE_DIRECTORY'
    EXPORTING
      dirname = pv_path
    EXCEPTIONS
      failed  = 1
      OTHERS  = 2.
ENDFORM.