查看服务器目录中的文件

  data tab_epsfili type standard table of epsfili.
data wa_file type epsfili.
data l_file type rlgrap-filename.

start-of-selection.
  set pf-status 'STATUS1'.
  perform sub_getdirectory.
  perform sub_wirte.


at user-command.
  case sy-ucomm.
    when 'DEL'.
      perform sub_delete.
  endcase.


**********************************************************************
* FORM    :  sub_getdirectory
* Created :  11.12.2008 18:35:52
**********************************************************************
form sub_getdirectory  .
 call function 'EPS_GET_DIRECTORY_LISTING'
    exporting
      dir_name               = '/usr/sap/AA2/D01/data/'
      file_mask              = ''
    tables
      dir_list               = tab_epsfili
    exceptions
      invalid_eps_subdir     = 1
      sapgparam_failed       = 2
      build_directory_failed = 3
      no_authorization       = 4
      read_directory_failed  = 5
      too_many_read_errors   = 6
      empty_directory_list   = 7
      others                 = 8.
endform. "sub_getdirectory
**********************************************************************
* FORM    :  sub_wirte
* Created :  11.12.2008 18:36:50
**********************************************************************
form sub_wirte  .
  if not tab_epsfili is initial.
     loop at tab_epsfili into wa_file .
  " CONCATENATE '/usr/sap/AA2/D01/data/' wa_file-name INTO l_file.
  " delete DATASET l_file.
    write:/ wa_file-name, 30 wa_file-size, 50 wa_file-rc.
  endloop.
  else.
    write: 'the directory is empty!'.
  endif.


endform. "sub_wirte
**********************************************************************
* FORM    :  sub_delete
* Created :  11.12.2008 18:37:25
**********************************************************************
form sub_delete ." 该目录中删除所有文件
loop at tab_epsfili into wa_file .
    concatenate '/usr/sap/AA2/D01/data/' wa_file-name into l_file.
    delete dataset l_file.
  write:/ wa_file-name, 30 wa_file-size, 50 wa_file-rc, 56 'has been deleted.'.
endloop.
endform. "sub_delete