Pregunta forms! 6

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!

1 Respuesta

Respuesta
1
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas