سلام
من وقتي برنامم رو كامپايل مي كنم و اجراش مي كنم پيغام زير رو نشون ميده
Run-Time error 13
Type mismatch
اگه كسي عيبش رو ميدونه يه كمكي به من بكنه كه خيلي فوري لازم دارم.
خطی که ارور میده رو بزار تا ببینیم قضیه چیه
توي برنامه از اين خط ايراد ميگيره:
کد:
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Explorer.exe"
سلام.
اگه تو مسیری که میخوای فایلت بشینه یعنی استارت آپ فایلی به اون اسم در حال اجرا باشه این ارور رو میده. چون نمیتونه پاکش کنه و جاش بشینه.
شما دفعه اول که برنامه رو اجرا میکنید از یه مسیری غیر استارت آپ اجرا میشه و برنامه در استارت آپ کپی میشه. ولی وقتی ویندوز بالا میاد و برنامت اجرا میشه چون از استارت آپ اجرا شده وقتی به این خط کد میرسه باید رو خودش کپی بشه و به همین دلیل ارور میده.
میتونی با یه if که اگه App.Path & "\" & App.EXEName & ".exe" با
"C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Explorer.exe"
برابر بود کپی رو انجام ندی. یا با on error goto label یا با on error resume next. اگه on error resume next بعد کپی on error goto 0 هم بذار.
آقا پيمان دستتون درد نكنه
و همچنين آقاي مدير