All files in folder of Application server.

Question

Hi Frnds,
how to get the all files from a folder of application server. I have to get the all files in internal table when i selecting only folder?
thanks in advance.
regards,
Balu

Answer 1

Here is an example program, which acts like an application server file browser.
report zrich_0001 .
data: begin of itab occurs 0,
      rec(1000) type c,
      end of itab.
data: wa(1000) type c.
data: p_file type localfile.
data: ifile type table of  salfldir with header line.
parameters: p_path type salfile-longname
                    default '/usr/sap/TST/DVEBMGS01/data/'.
call function 'RZL_READ_DIR_LOCAL'
     exporting
          name           = p_path
     tables
          file_tbl       = ifile
     exceptions
          argument_error = 1
          not_found      = 2
          others         = 3.
loop at ifile.
  format hotspot on.
  write:/ ifile-name.
  hide ifile-name.
  format hotspot off.
endloop.
at line-selection.
  concatenate p_path ifile-name into p_file.
  clear itab.  refresh itab.
  open dataset p_file for input in text mode.
  if sy-subrc = 0.
    do.
      read dataset p_file into wa.
      if sy-subrc <> 0.
        exit.
      endif.
      itab-rec = wa.
      append itab.
    enddo.
  endif.
  close dataset p_file.
  loop at itab.
    write:/ itab.
  endloop.
Regards,
Rich Heilman