السلام عليكم
اخواني هاذي المره الثانيه اسال بخصوص هذا الكود وفي واحد جاوبني لكن الكود الذي عطاني فقط لي انسخ ملف واحد من Resources يعني بوركي الكود الحين
هذا اضعه في البوتن
saveformResources("C:\Program Files\drar.exe", My.Resources.drar)
لو تالحضون هنا ان ملفdrar.exe هو الذي ينسخ على ملف ولا اقدر ان انسخ اكثر من ملف على هذا الكود ولو تلاحضون يجب تحديد المسار انا لا اريد هكذا انا اريد
وهذا كود اضافي اضيفه
كود ينسخ جميع الملفات التي داخل Resources في مكان حفظ البرنامح يعني انا حفضته في هذا الكمبيوتر في c يعني انه ينسخ الملفالت على اي ملف انا اوضع فيه البرنامج
مثال توضيح:
طريقة البرناج
ادخل عليه اضغط على بوتن ينسخ جميع مافي Resources الى مجلد البرنامج الذي انا استخدمه
ارجو الرد تعبت معا هذا الكود وشكرا
ربما لن تستطيع أن تفعل ما تريده........المشكلة تكمن ف أن Resources تم تصميمها لكي نحتفظ فيها بأنواع مختلفة من الملفات مثل الصور او التكست أو ايقونات أو ملفات صوتيه...الخ..... و بالتالي يجب أن تتعامل مع كل نوعية علي حدة
بما أنك تريد اصلا نسخ الملفات الي فهرس البرنامج...لماذا تحتفظ بها ف Resources ..... يمكنك ان تنسخها مرة واحدة مع Setup الخاصة بالبرنامج
عموما حاول تقرأ و تدرس المسميات التالية
ResourceReader Class
ResourceManager Cass
بمعني أدق عليك دراسة System.Resources Namespace جيدا ....ربما تجد الحل بنفسك
اخي : silverlight
اهلا بك بخصوص ان ما اقدر انت شكلك ما فهمتني زين حمل هاذه البرنامج
رابط التحميل
http://www.mediafire.com/download/dbmh3a...Server.exe
الملف سليم لا تخاف
المهم بعد ما تحمل البرنامج خش عليه راح تلقه كلمت تنصيب راح تلاحض انه يستخرج ملفات من البرنامج في مكان ما انت حطيت البرنامج شوف البرنامج ورد لي خبر اذا تعرف الطريقه ولا وشكرا
ارجو المساعده
انظر هذا الكود (يكتب الملفات في هيئة ملف تنفيذي exe):
PHP كود :
Dim RS As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
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
اخوي عطيك العافيه ضبط الكود ولاكن في مشكلة
انه يستخرج بس ملفات exe وش المشكله والله لو رديت لا ادعيلك حلي المشكله تكفى
عليك تفسم انواع الملفات كل حسب نوعه ومن ثم نسخها مع بعضها البعض حسب نوعها
علي ما أتذكر فيه طريقة تانية و لا تحتاج الي كتابة اي كود
وهي ان تقوم ب تغيير Build Action لكل ملف موجود في Resources و تجعلها Copy if new لكن عليك ان تقوم بتنفيذ ذلك لكل ملف علي حدة
ممكن تفهمني اكثر بخصوص
علي ما أتذكر فيه طريقة تانية و لا تحتاج الي كتابة اي كود
وهي ان تقوم ب تغيير Build Action لكل ملف موجود في Resources و تجعلها Copy if new لكن عليك ان تقوم بتنفيذ ذلك لكل ملف علي حدة
وكيف الطريقه
وشكرا
اعتذر انا ما عندي فيجوال استوديو حاليا...انا ب احاول أرد عليك من الذاكرة
في كود الأخ علي حاول تكتب dict.Value.ToString بدلا من "\" & dict.Key & ".exe" ...... ربما قد تفلح بها ف نسخ جميع الملفات
أما بخصوص تغيير BuildAction عليك أن تقف ب الماوس علي اي ملف من الملفات الموجودة في Resources ثم تضغط يمين الماوس ستظهر لك قائمة و تختار منها Properties و من هناك يمكنك تغيير BuildAction لكل ملف علي حدة