کد:
SaveFile("PDF Files (*.pdf)|*.pdf|All Files|*.*||","*.pdf")
dest$ = CBK_OpenDir + CBK_OpenFile
source$ = '<SrcDir>\aa.pdf'
set$ = source$ + '|' + dest$ + '|True'
PluginSet("PlugIn","set$")
PluginRun("PlugIn","Copy_File")
PluginGet("PlugIn","get$")
If (get$='1') Then
Message("File saved successfully","")
Else
Message("Saving failed","")
End
تو اين كدها تو خط اول با دستور SaveFile مسير موردنظر كاربر ازش سوال ميشه.
مسيري كه كاربر انتخاب كرده تو خط دوم با توابع CBK_OpenDir و CBK_OpenFile بدست مياد و تو متغيري به نام $dest ثبت ميشه.
تو خط سوم مسير مبدا يعني جايي كه فايل شما قرار داره تو متغيري به نام $source ثبت ميشه.
تو خط بعدي مسير مبدا يعني جايي كه فايل اصلي هست + كاراكتر ( | ) و مسير مقصد يعني مسير موردنظر كاربر + كاراكتر ( | ) و در نهايت پارامتر True تو متغيري به نام $set ثبت ميشه.
از پارامتر True به اين منظور استفاده ميكنيم كه اگه تو اون مسير فايلي با همين نام قرار داره فايل جديد جايگزين فايل قبلي بشه (overwritte) در
تو خط بعدي مقدار متغير $set رو با دستور PluginSet به پلاگين ارسال ميكنيم.
تو خط بعد با دستور PluginRun و تابع Copy_File عمليات كپي فايل رو اجرا ميكنيم و تو خط بعد با PluginGet نتيجه اجراي اين دستور رو بدست مياريم.
اگه عمليات كپي به درستي انجام شده باشه مقدار متغير $get بايد معادل 1 باشه در غير اينصورت نتيجه معادل0 خواهد بود.
بنابراين با يك شرط چك ميكنيم در صورتي كه نتيجه 1 بود يعني فايل به درستي كپي شده پس پيغام موفقيت صادر ميشه و در صورتي كه نتيجه غير از 1 بود يعني فايل به درستي كپي نشده و پيغام خطا صادر ميشه.