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

[solid 3 snake]

السلام عليكم .... شبا أنا عملت برنامج بالفيجوال بيسك وحولته ل 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


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