Necesito saber una forma para obtener los archivos de un directorios y guardarlos en una lista. El objeto es que presionando un botón obtenga los archivos de un directorio especifico! Gracias!
Eso es muy fácil amigo... Se hacec mediante el comando text_Io ------------------------------------- -- Vamos a subir del archivo plano -- ------------------------------------- DECLARE L_LINEA VARCHAR2(1000); L_ARCHIVO TEXT_IO.FILE_TYPE; L_COD_USUARIO VARCHAR2(30); L_FECHA2 VARCHAR2(20); L_FECHA DATE; L_COD_OPCION VARCHAR2(5); L_EVENTO VARCHAR2(2); L_DESCRIPCION VARCHAR2(150); L_CONSEC NUMBER; L_NOMBRE_ARCHIVO VARCHAR2(500); BEGIN L_NOMBRE_ARCHIVO := GET_FILE_NAME('c:\temp\', File_Filter=>'Nova Files (*.nov)|*.nov|'); :ARCHIVO := UPPER(L_NOMBRE_ARCHIVO); go_item('ARCHIVO'); IF L_NOMBRE_ARCHIVO IS NOT NULL THEN BEGIN L_ARCHIVO := TEXT_IO.FOPEN(L_NOMBRE_ARCHIVO,'R'); SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY'); LOOP BEGIN TEXT_IO.GET_LINE(L_ARCHIVO,L_LINEA); L_COD_USUARIO := SUBSTR(L_LINEA,11,20); L_FECHA2 := RTRIM(SUBSTR(L_LINEA,31,20)); L_COD_OPCION := RTRIM(SUBSTR(L_LINEA,51,10)); L_EVENTO := RTRIM(SUBSTR(L_LINEA,61,10)); L_DESCRIPCION := SUBSTR(L_LINEA,71,150); L_CONSEC := TO_NUMBER(SUBSTR(L_LINEA,1,10)); INSERT INTO CNT_AUDITORIA VALUES(L_COD_USUARIO,L_FECHA2,L_COD_OPCION,L_EVENTO,L_DESCRIPCION,L_CONSEC); EXCEPTION WHEN NO_DATA_FOUND THEN EXIT; END; END LOOP; FORMS_DDL('COMMIT'); TEXT_IO.FCLOSE(L_ARCHIVO); SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT'); MENSAJE_GENERAL('INFORMACION', 'Archivo Subido!'); EXCEPTION WHEN OTHERS THEN NULL; END; END IF; END; *** EL ANTERIOR ES UN EJEMPLO DE COMO SUBIR UN ARCHIVO,.. SELECCIONANDOLO DESDE UNA RUTA ESPECIFICA... Y FILTRANDO LOS ARCHIVOS POR UNA DETERMINADA EXTENSION... EN ESTE CASO LA EXTENSION ES .NOV Suerte