جعل برنامجك ينسخ نفسة في مكان انت تحددة على الجهاز عند تشغيلة

علشان تعمل نسخه من برنامجك فى مسار اخر

ضع الكود ده فى موديول :

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

و ده فى حدث تحميل الفورم مثلا:

oldfileCopyFile, "c:\project.exe" & App.path & "\" & App.EXEName & ".exe", False

الكود ده بينسخ البرنامج نفسه فى السى بائسم project.exe .

مشكور اخي ولكن ماذا تقصد ب موديول ؟

اقصد اين اضيف الكود الاول ؟؟؟ وشكرا للمساعدة

الموديول عباره عن مكان نكتب فيه التعريفات والدوال والبرامج الفرعيه التى نريد كل الفورمات التعامل معها اذا دعت الحاجه..

يمكن ادراجه :

..........

Project>>add Module

ولما يظهر اكتب فيه الاكواد المطلوبه

بارك الله فيكوا يا شباب

مشكور اخي الكريم ولكن وضعت موديل جديد وكتبت فيه الكود الاول وكتبت الكود الثاني في حالة اللود للفورم ولكن كانت تظهر لي هذه الرسالة

Compile eroor

Sub or Function not defined

وكانت يظهر التظليل على

private sub form-load ()

oldfilecopyfile

فما الذي يجب ان اغيره ؟ حتى يشتغل معي الكود

وشكرا لكم

الكود ده مش هيعمل فى وقت تصميم و تجربه البرنامج

ولكن عند اصدار البرنامج لكى يكون ملف تنفيذى

اذا علشان تجرب الكود يجب تصدير البرنامج الى ملف تنفيذى

لاحظ الكود :

oldfileCopyFile, "c:\project.exe" & App.path & "\" & App.EXEName & ".exe", False

لاحظ هذا الجزء من الكود و هو الملف اللى هيتنسخ

 App.path & "\" & App.EXEName & ".exe"

معناه المسار الحالى و اسم الملف التنفيذى الذى يعمل

يعنى لو مسار البرنامج على ال e: و اسم الملف lastoper

هنحصل فى النهايه على هذا المسار e:\lastoper.exe

اقتباس

الكود ده مش هيعمل فى وقت تصميم و تجربه البرنامج

ولكن عند اصدار البرنامج لكى يكون ملف تنفيذى

اذا علشان تجرب الكود يجب تصدير البرنامج الى ملف تنفيذى

اخي العزيز مشكور على ردك ولكن لم يقبل الفيجوال بيسك ان يصنع ملف تنفيذي بعد ما وضعت الكودين داخل برنامج وجربت وضعتهم في برنامج جديد واعطاني نفس المشكلة

Compile eroor

Sub or Function not defined

السلام عليكم ورحمة الله وبركاته

أخي لنسخ الملف التنفيذي لبرنامجك أو اي ملف اخر يمكنك تحديد اسمه ووضعه في الكود ثم نسخة بالكود التالي

FileCopy "Project1.exe", "c:\MyCopy.exe"

أرجو ان يكون هذا هو المقصود

بانتظار الرد

الى اللقاء

مشكور اخي الله يعطيك العافية

أخيرا زبطت