تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود نسخ الملفات التي داخل Resources الى مكان حفظ البرنامج (مهم)
#1
السلام عليكم


اخواني هاذي المره الثانيه اسال بخصوص هذا الكود وفي واحد جاوبني لكن الكود الذي عطاني فقط لي انسخ ملف واحد من Resources يعني بوركي الكود الحين


هذا اضعه في البوتن

saveformResources("C:\Program Files\drar.exe", My.Resources.drar)

لو تالحضون هنا ان ملفdrar.exe هو الذي ينسخ على ملف ولا اقدر ان انسخ اكثر من ملف على هذا الكود ولو تلاحضون يجب تحديد المسار انا لا اريد هكذا انا اريد
وهذا كود اضافي اضيفه

كود ينسخ جميع الملفات التي داخل Resources في مكان حفظ البرنامح يعني انا حفضته في هذا الكمبيوتر في c يعني انه ينسخ الملفالت على اي ملف انا اوضع فيه البرنامج

مثال توضيح:
طريقة البرناجAngryAngryAngryAngryAngryAngryAngryAngryAngryAngryAngry
ادخل عليه اضغط على بوتن ينسخ جميع مافي Resources الى مجلد البرنامج الذي انا استخدمه


ارجو الرد تعبت معا هذا الكود وشكرا
الرد }}}
تم الشكر بواسطة:
#2
ربما لن تستطيع أن تفعل ما تريده........المشكلة تكمن ف أن Resources تم تصميمها لكي نحتفظ فيها بأنواع مختلفة من الملفات مثل الصور او التكست أو ايقونات أو ملفات صوتيه...الخ..... و بالتالي يجب أن تتعامل مع كل نوعية علي حدة

بما أنك تريد اصلا نسخ الملفات الي فهرس البرنامج...لماذا تحتفظ بها ف Resources ..... يمكنك ان تنسخها مرة واحدة مع Setup الخاصة بالبرنامج

عموما حاول تقرأ و تدرس المسميات التالية

ResourceReader Class
ResourceManager Cass

بمعني أدق عليك دراسة System.Resources Namespace جيدا ....ربما تجد الحل بنفسك
الرد }}}
تم الشكر بواسطة: Sajad
#3
اخي : silverlight


اهلا بك بخصوص ان ما اقدر انت شكلك ما فهمتني زين حمل هاذه البرنامج

رابط التحميل
http://www.mediafire.com/download/dbmh3a...Server.exe

الملف سليم لا تخاف

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


ارجو المساعده
الرد }}}
تم الشكر بواسطة:
#4
انظر هذا الكود (يكتب الملفات في هيئة ملف تنفيذي exe):

PHP كود :
Dim RS As Resources.ResourceSet My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCultureTrueTrue)
        For 
Each dict As DictionaryEntry In RS
            
If dict.Value.GetType() Is GetType(Byte()) Then
                Dim B 
As Byte() = dict.Value
                IO
.File.WriteAllBytes(Application.StartupPath "\" & dict.Key & ".exe", B)
            End If
        Next 
الرد }}}
تم الشكر بواسطة:
#5
اخوي عطيك العافيه ضبط الكود ولاكن في مشكلة


انه يستخرج بس ملفات exe وش المشكله والله لو رديت لا ادعيلك حلي المشكله تكفى
الرد }}}
تم الشكر بواسطة:
#6
عليك تفسم انواع الملفات كل حسب نوعه ومن ثم نسخها مع بعضها البعض حسب نوعها

علي ما أتذكر فيه طريقة تانية و لا تحتاج الي كتابة اي كود
وهي ان تقوم ب تغيير Build Action لكل ملف موجود في Resources و تجعلها Copy if new لكن عليك ان تقوم بتنفيذ ذلك لكل ملف علي حدة
الرد }}}
تم الشكر بواسطة:
#7
ممكن تفهمني اكثر بخصوص


علي ما أتذكر فيه طريقة تانية و لا تحتاج الي كتابة اي كود
وهي ان تقوم ب تغيير Build Action لكل ملف موجود في Resources و تجعلها Copy if new لكن عليك ان تقوم بتنفيذ ذلك لكل ملف علي حدة


وكيف الطريقه

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

في كود الأخ علي حاول تكتب dict.Value.ToString بدلا من "\" & dict.Key & ".exe" ...... ربما قد تفلح بها ف نسخ جميع الملفات

أما بخصوص تغيير BuildAction عليك أن تقف ب الماوس علي اي ملف من الملفات الموجودة في Resources ثم تضغط يمين الماوس ستظهر لك قائمة و تختار منها Properties و من هناك يمكنك تغيير BuildAction لكل ملف علي حدة
الرد }}}
تم الشكر بواسطة: Sajad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  متغيرات اسماء الملفات atefkhalf2004 1 337 15-11-23, 02:40 PM
آخر رد: atefkhalf2004
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi

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


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