Sunday, July 26, 2015

Oracle Browse files

Declare
    New_Path Varchar2(100);
    file_path Varchar2(100);
Begin
    New_Path := 'C:/';
  file_path := Win_Api_Dialog.Open_File
  ('Find Files',New_Path,
  'MSACCESS Files (*.mdb) |*.mdb|MSACCESS Files (*.accdb) |*.accdb|All Files (*.*) |*.*|'
  ,TRUE,WIN_API.OFN_FLAG_DEFAULT,TRUE);
    :file_name := file_path;
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      NULL;
END;

No comments:

Post a Comment