Ver Mensaje Individual
  #6  
Viejo 09/04/08, 21:05:26
luisconmiedo luisconmiedo is offline
Junior Member
 
Fecha de Ingreso: sep 2007
Mensajes: 1
Leer ficheros de un directorio

FORM cargar_lista_archivos .

DATA: nombre(250) TYPE c,
temporal(250) TYPE c,
archivos TYPE TABLE OF rsfillst,
directorios TYPE TABLE OF sdokpath.

temporal = destino.

CONCATENATE temporal '\' INTO nombre.
CONDENSE nombre.
CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
EXPORTING
directory = nombre
* FILTER = '*.*'
* IMPORTING
* FILE_COUNT =
* DIR_COUNT =
TABLES
file_table = archivos
dir_table = directorios
* EXCEPTIONS
* CNTL_ERROR = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM. " cargar_lista_archivos

Efectivamente con este modulo de funcio (TMP_GUI_DIRECTORY_LIST_FILES) se leen los ficheros que posee un archivo y adicionalmente entrega los nombres de otros ficheros que puedan estar al interior. Yo moleste un rato con las otras opciones y ninguna funcionaba y en definitiva esta es la mas practica. Por favor tengan en cuenta que la ruta del directorio debe terminar en "/" para UNIX y en "\" para windows. A mi me quito dos horas solo por no agregar esta terminacion a la ruta.
Responder Con Cita