منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود ارسال مافي الريسورس في ملف البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] كود ارسال مافي الريسورس في ملف البرنامج (/showthread.php?tid=3086)

كود ارسال مافي الريسورس في ملف البرنامج - hassan - 02-06-14

السلام عليكم


شباب انا حاب اسوي برنامج فيه اربع ملفات


وابي اسوي لهم نسخ على ملف غير محدد انا اعرف كيف اسوي على طريق محدد وهذا الكود لي تحديد نسخ الملف في هذا المسار

PHP كود :
IO.File.WriteAllBytes("مسار الملف", My.Resources.اسم اللف الي في الريسورس) 

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


وشكرا


اتمنى فهمتو علي

RE: كود ارسال مافي الريسورس في ملف البرنامج - hassan - 02-06-14

رد يا اخوان

RE: كود ارسال مافي الريسورس في ملف البرنامج - Ali Wisam - 02-06-14

لستُ ادري بالتحديد ... لكن لمَ لا تصنع مسارك الخاص ؟ .. أي انْ تصنع فولدر على الجهاز و من ثم تضع فيه ما تريد
مثلا : C:\Hassan
فيكون الكود هنا
PHP كود :
IO.Directory.CreateDirectory("C:\Hassan")
IO.File.WriteAllBytes("C:\Hassan\Myfile.***", My.Resources.اسم اللف الي في الريسورس) 


RE: كود ارسال مافي الريسورس في ملف البرنامج - ali.alfoly - 02-06-14

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

RE: كود ارسال مافي الريسورس في ملف البرنامج - hassan - 02-06-14

(02-06-14, 04:55 PM)Ali Wisam كتب : لستُ ادري بالتحديد ... لكن لمَ لا تصنع مسارك الخاص ؟ .. أي انْ تصنع فولدر على الجهاز و من ثم تضع فيه ما تريد
مثلا : C:\Hassan
فيكون الكود هنا
PHP كود :
IO.Directory.CreateDirectory("C:\Hassan")
IO.File.WriteAllBytes("C:\Hassan\Myfile.***", My.Resources.اسم اللف الي في الريسورس) 
اخي مو هذا قصدي انا قصدي اي مجلد مو مجلد محدد يعني وين ما احط البرنامج في اي مجلد يستخرج في المجلد الي البرنامج فيه

RE: كود ارسال مافي الريسورس في ملف البرنامج - ali.alfoly - 02-06-14

اتفضل
Application.StartupPath
هذه الدالة ترجع بمسار البرنامج يمكنك وضعها مكان "مسار الملف" واضف لها اسم الملف
مثال
كود :
IO.File.WriteAllBytes(Application.StartupPath & My.Resources.About.ToString & ".txt" _
                    , My.Resources.About)


RE: كود ارسال مافي الريسورس في ملف البرنامج - hassan - 02-06-14

(02-06-14, 05:21 PM)ali.alfoly كتب : اتفضل
Application.StartupPath
هذه الدالة ترجع بمسار البرنامج يمكنك وضعها مكان "مسار الملف" واضف لها اسم الملف
مثال
كود :
IO.File.WriteAllBytes(Application.StartupPath & My.Resources.About.ToString & ".txt" _
                    , My.Resources.About)

مافهمتك ممكن تشرح لي

RE: كود ارسال مافي الريسورس في ملف البرنامج - vbnet - 02-06-14

.....

كود :
Dim sv As New SaveFileDialog
If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
    IO.File.WriteAllBytes(sv, My.Resources.اسم_ملف_الريسورس)
End If

.....

RE: كود ارسال مافي الريسورس في ملف البرنامج - Ali Wisam - 02-06-14

اذا كنت تريد وضعه في الفولدر الذي فيه البرنامج .. فاحفظه دون كتابة اسم فولدر
مثلا :
PHP كود :
IO.File.WriteAllBytes("Program.exe",My.Resources.Program) 


RE: كود ارسال مافي الريسورس في ملف البرنامج - hassan - 02-06-14

(02-06-14, 06:22 PM)Ali Wisam كتب : اذا كنت تريد وضعه في الفولدر الذي فيه البرنامج .. فاحفظه دون كتابة اسم فولدر
مثلا :
PHP كود :
IO.File.WriteAllBytes("Program.exe",My.Resources.Program) 

الله يعطيك العافيه ما تقصر ضبط الكود



شكرا