فيجوال بيسك ؟؟؟؟؟

السلام عليكم .... شبا أنا عملت برنامج بالفيجوال بيسك وحولته ل exe خلاص ......... من ثم عملت برنامج آخر وجعلت في الفورم زر ..... المطلوب : عند الضغط على هذا الزر ينسخ البرنامج ال exe في سطح المكتب أو يطلع صندوق محاوره ويقول للمستخد حدد المكان الذي تريد وضع ال exe فيه ........... وبس

انت تريد مثل برنامج SETUP
او نسخ ملف
ممكن وسهله جدا
بص الكود ده بتاع النسخ الافتراضى :

كود:

---


Private Sub Command1_Click()
FileCopy App.Path & "\abdo.exe", "d:\Documents and Settings\All Users\Desktop\abdo.exe"
End Sub

---

وده كود النسخ بمربع الحوار :

كود:

---


Private Sub Command2_Click()
CommonDialog1.ShowSave
CommonDialog1.FileName = "abdo"
FileCopy App.Path & "\abdo.exe", CommonDialog1.FileName & ".exe"
End Sub

---

البرنامج فى المرفق
وربنا يوفقق