#5
|
||||
|
||||
Hola, para obtener el nombre de los archivos de un fichero utiliza:
perform obtener_archivos_directorio using v_ruta changing t_texto[]. *&---------------------------------------------------------------------* *& Form obtener_archivos_directorio *&---------------------------------------------------------------------* * Se encarga de obtener la lista (nombres) de archivos que se * encuentran en la ruta de archivo especificada *----------------------------------------------------------------------* form obtener_archivos_directorio using p_dirname type c changing p_archivos like t_fichero[]. data: lw_searchpoints type ty_searchpoints, errno(3) type c, errmsg(40) type c, name(75) type c, w_archivo like t_fichero. clear lw_searchpoints. refresh p_archivos. concatenate p_dirname '/' into lw_searchpoints-dirname. lw_searchpoints-sp_name = '*'. call 'C_DIR_READ_FINISH' " just to be sure id 'ERRNO' field errno id 'ERRMSG' field errmsg. clear: errno, errmsg. call 'C_DIR_READ_START' id 'DIR' field lw_searchpoints-dirname id 'FILE' field lw_searchpoints-sp_name id 'ERRNO' field errno id 'ERRMSG' field errmsg. if sy-subrc <> 0. exit. endif. do. call 'C_DIR_READ_NEXT' id 'NAME' field name. if sy-subrc = 0. clear w_archivo. w_archivo-texto = name. append w_archivo to p_archivos. else. exit. endif. enddo. close dataset lw_searchpoints-dirname. endform. "obtener_archivos_directorio Al final en la tabla p_archivo (t_texto[]) tienes los nombres de los archivos del directorio que pusiste.
__________________
Saludos, Claudia V. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|