مشکل در کپی شدن

[Izadshahri]

سلام . من یه برنامه دارم که خود رو توی درایو ویندوز کپی می کنه!
برای کپی توی Else یه دستور If قرار دادم.
برای کپی از کد زیر استفاده می کنه!

FileCopy App.Path + "\" + App.EXEName + ".exe", Environ("SystemRoot") & "\Ng.exe"

مشکل من اینه که این دستور شرطی به تنهایی توی یه فرم به خوبی کار می کنه ولی توی کل برنامه قرار میگیره اجرا نمیشه!ولی اگه به جای دستور کپی یه مسیج بوکس میزارم پیغام رو نشون میده!
یعنی توی برنامه ی من این کد کپی کار نمیکنه!اگه میشه یه کد دیگه بدید یا توضیح بدید که مشکل از کجاست،حجم کد های برنامم هم زیاده و نمیشه اینجا گذاشت.

[Samsam2010]

دوست من از FSo کمک بگیر
بجای فابل کپی خود وی بی از FSO کمک بگیر امیدوارم مشکلت حل بشه

[IamOverlord]

سلام دوست عزیز!
یه سورس کامل در مورد کپی کردن فایل ها (همراه با Module) که می تونی هر فایلی رو با هر روش و با کوچک ترین جزییات کپی کنی.
http://up.iranblog.com/3/1257200296.zip

[pcdownload.bloghaa.com]

بهترین راه اینه که خودت عملیات کپی را انجام بدی تا کنترل کار دستت باشه :

dim temp as string
open "C:\test.jpg" for binary as #1
temp=space(lof(1))
get #1, ,temp
close #1
open "d:\test.jpg" for binary as #1
put #1, ,temp
close #1

کد بالا فایل test.jpg را به dكپی میکنه.
و با اطلاعاتی که کپی میکنی هر کاری میتونی انجام بدی.

pcdownload.bloghaa.com (http://pcdownload.bloghaa.com)

[Izadshahri]

این کدت کار کرد! ولی فایلی که کپی میشه فقط دو بایت حجم داره
کد های بالا اصلا کپی فایل رو کپی نمیکردن،البته تو برنامه ی من ولی این کد اخر کپی میشد ولی فایل اجرا نمیشد چون فقط دو بایت بود!
یه راه بهتر واسه کپی نیست؟

[xxxxx_xxxxx]

همون دستوری که خودتون تو پست اول نوشتید خوب هست. باید دلیل کپی نشدن فایل رو پیدا کنید نه این که نحوه کپی کردن رو عوض کنید.

تو برنامه خودتون گفتید که عمل کپی انجام نمیشه. حالا برنامه رو خط به خط اجرا کنید. حالا چطور؟ اگر عمل کپی انجام شد. قبل از دستور کپی DoEvents استفاده کنید.