PDA

View Full Version : کپی



mahe_zibaei
سه شنبه 14 مهر 1383, 01:19 صبح
سلام به همه استادان گرامی
من یک مشکلی داشتم میخواستم برنامه من (فایل exe) بعد از اجرا شدن از خود کپی بردارد در یک مسیر مشخص حتی اگه اسم برنامه تغییر کرده باشه
چه کار باید بکنم؟

vbprogramer
سه شنبه 14 مهر 1383, 07:13 صبح
کپی کردن آن در یک مسیر مشخص مشکلی ندارد ولی اینکه با هر اسمی که باشد مسئله است .
شما میتوانید هنگام اجرا اول آن را به همان نام قبلی تغییر داده سپس از آن کپی بگیرید ویا اینکه اگر مطمئن هستید که در آن شاخه فقط یک فایل exe وجود دارد از exe.* استفاده کنید
فکر کنم مشکل حل بشه
:D :mrgreen:

bahar60
چهارشنبه 15 مهر 1383, 08:40 صبح
سلام دوست عزیز

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

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

mr_esmaily
چهارشنبه 15 مهر 1383, 10:46 صبح
سلام

Dim coy As New FileSystemObject
Dim fs As String

fs = App.Path + "\" + App.EXEName + ".exe"
coy.CopyFile fs, "Your File Destination" + App.EXEName + ".exe"
در کد بالا فقط لازمه به جای Your File Destination مسیر مورد نظرتون رو بنویسید بعد از اون فایل اگزه در هر جایی و با هر نامی به مسیر دلخواهتون کپی میشه.
البته باید ریفرنس Microsoft Scripting Runtime رو به پرژتون اضافه کنید.

:)

mahe_zibaei
پنج شنبه 16 مهر 1383, 01:13 صبح
ممنون دقیقا همین رو میخواستم :flower: