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;
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