Questio about TEXT_IO package

Question

dear friends
I've created a procedure that copy the data from database like this:
PROCEDURE P_LOAD2TEXT(P_STOCK GN_STOCKS.STOCK_CODE%TYPE)
IS
CURSOR DAILY_TRADE_CUR IS
SELECT TO_CHAR(THE_TIME,'HH24:MI:SS') TRADE_TIME,PRICE,QTY
FROM LV_DAILY_TRADES
WHERE STOCK_CODE = P_STOCK;
     vFILE           TEXT_IO.FILE_TYPE;
     vFILENAME      VARCHAR2(255);
BEGIN
          Vfilename := 'X:\SE\chart\intraday_ascii\'||:trade.stock_code||'.txt';
          vFILE := TEXT_IO.FOPEN(vFILENAME ,'W');
          FOR I IN DAILY_TRADE_CUR LOOP
          TEXT_IO.PUT_LINE(vFILE,I.TRADE_TIME||','||I.PRICE||','||I.QTY);          
          END LOOP;
          TEXT_IO.FCLOSE(vFILE);
END;
the procedure works fine .
But i need to validated first if the file exists, delete this file first.
my question is
Is it possible to delete file from hard disk from within form builder?
I can tried to make a batch file that clears all files with in the folder but the problem is the the command prompt window is displyed and asking me the following question
x:\del*.*
x:\*.*, are you sure(Y,N)
and i must press Y to delete the files
my knowedge in making batch file is limited and i do not know how to pass 'Y' to the command prompt.
please help

Answer 1

There are two choices:
- Add the /q switch to the del command, i.e. del *.* /q
Or use the delete_file procedure from the win_api_utility package available from the d2kwutil library (if using Forms 6i).
Be carefull howver when using the del *.* to make sure you are in the proper folder.