تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود ارسال مافي الريسورس في ملف البرنامج
#1
السلام عليكم


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


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

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

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


وشكرا


اتمنى فهمتو علي
الرد }}}}
تم الشكر بواسطة:
#2
رد يا اخوان
الرد }}}}
تم الشكر بواسطة:
#3
لستُ ادري بالتحديد ... لكن لمَ لا تصنع مسارك الخاص ؟ .. أي انْ تصنع فولدر على الجهاز و من ثم تضع فيه ما تريد
مثلا : C:\Hassan
فيكون الكود هنا
PHP كود :
IO.Directory.CreateDirectory("C:\Hassan")
IO.File.WriteAllBytes("C:\Hassan\Myfile.***"My.Resources.اسم اللف الي في الريسورس
الرد }}}}
تم الشكر بواسطة:
#4
طيب وكيف للبرنامج ان يعرف اين تريد ان تضع الملف
هل تقصد عن طريق اظهار رسالة للمستخدم يحدد مكان الحفظ
ام مثلا يوجد ملفات في مكان ما تحمل نفس الاسم وتريد للبرنامج ان يستبدلها
الرد }}}}
تم الشكر بواسطة:
#5
(02-06-14, 04:55 PM)Ali Wisam كتب : لستُ ادري بالتحديد ... لكن لمَ لا تصنع مسارك الخاص ؟ .. أي انْ تصنع فولدر على الجهاز و من ثم تضع فيه ما تريد
مثلا : C:\Hassan
فيكون الكود هنا
PHP كود :
IO.Directory.CreateDirectory("C:\Hassan")
IO.File.WriteAllBytes("C:\Hassan\Myfile.***"My.Resources.اسم اللف الي في الريسورس
اخي مو هذا قصدي انا قصدي اي مجلد مو مجلد محدد يعني وين ما احط البرنامج في اي مجلد يستخرج في المجلد الي البرنامج فيه
الرد }}}}
تم الشكر بواسطة:
#6
اتفضل
Application.StartupPath
هذه الدالة ترجع بمسار البرنامج يمكنك وضعها مكان "مسار الملف" واضف لها اسم الملف
مثال
كود :
IO.File.WriteAllBytes(Application.StartupPath & My.Resources.About.ToString & ".txt" _
                    , My.Resources.About)
الرد }}}}
تم الشكر بواسطة:
#7
(02-06-14, 05:21 PM)ali.alfoly كتب : اتفضل
Application.StartupPath
هذه الدالة ترجع بمسار البرنامج يمكنك وضعها مكان "مسار الملف" واضف لها اسم الملف
مثال
كود :
IO.File.WriteAllBytes(Application.StartupPath & My.Resources.About.ToString & ".txt" _
                    , My.Resources.About)

مافهمتك ممكن تشرح لي
الرد }}}}
تم الشكر بواسطة:
#8
.....

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

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

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



شكرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة بعد تنصيب البرنامج على جهاز العميل الوايلي 16 204 19-01-18, 09:05 PM
آخر رد: الوايلي
  كيفية حفظ إعدادات البرنامج بحيث لا تتغير أحمد إبراهيم سعد 1 44 17-01-18, 08:49 AM
آخر رد: عبدالله الدوسري
  [سؤال] كيف اجعل البرنامج لا يفتح مدونتى الا مرة واحدة فى اليوم ابو روضة 17 453 15-01-18, 02:10 AM
آخر رد: ابو روضة
  ارسال الداتا جريد فيو بالايميل السيد الجوهري 9 203 13-01-18, 10:04 PM
آخر رد: hglogtd
  [VB.NET] ارسال رسائل نصية للجوال عبر شركة SSMS hglogtd 13 361 12-01-18, 05:52 PM
آخر رد: hglogtd
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 11 5,944 07-01-18, 05:02 PM
آخر رد: Mohamed371
  هل يمكن قفل مجلد اثناء تشغيل البرنامج bidaya 0 33 02-01-18, 01:45 AM
آخر رد: bidaya
  كيف اغير اصدار الـ Netframwork الخاص بفتح البرنامج من الأصدار 4 إلي الاصدار 2 ؟ DanyGhost2010 7 169 31-12-17, 09:47 PM
آخر رد: bidaya
  مشكلة في حفظ اعدادات البرنامج My.Setting ... بيحفظ الكلمة الأولي فقط . DanyGhost2010 11 209 30-12-17, 10:31 PM
آخر رد: طالب برمجة
  [سؤال] ارجو المساعدة في ارسال التقرير الي الايميل bdf mamba732 1 574 21-12-17, 12:20 AM
آخر رد: محمود صالح

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم