File Extension

:global.target:= GET_FILE_NAME
(directory_name   => 'C:\', file_name  => '*.*',
 file_filter      => '(*.*)', message => 'Select file to copy',
 dialog_type      => save_FILE, select_file => TRUE);
 
 	:global.source:='\\server name\shared folder\'||path||'\'||file name;
   select substr(:global.source,-3) into :global.extension from dual;
 	
 copy_file (:global.source,:global.target||'.'||:global.ex,  :message);

استخدمت الكود السابق لنسخ ملف من السيرفر الى جهاز كلاينت
إلا انه يحضر مسار الملف بدون امتداده و لاتتم عملية النسخ حتى بدون امتداد
السؤال:

كيف يمكن الحصول على امتداد ملف موجود على فولدر من السيرفر
علما بان الفولدر شير