مشکل با کپی فایل با آدرس های متغییر در ویندوز 8

[one hacker alone]

با یاد خدا
سلام
برای کپی فایل از filesystemobject یا filecopy() function api استفاده می کردیم
حالا ویندز 8 64 وقتی برنامه رو تست میکنم ادرس ثابت رو بدون مشکل انجام میده مثل ("c:\d.txt") اما با (app.path +"\" + app.exename + ".exe")) مشکل دارم
دوستان راه حلی ؟ روش دیگه ای؟

[meys34]

سلام

این رو هم امتحان کنید اگر جواب نداد اروری که داده رو بگذارید ببینیم چیه...

App.Path + IIf(Right$(App.Path, 1) = "\", "", "\") + App.EXEName + ".exe"