منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف يمكنني استخراج الملفات التي داخل البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم


شباب انا عرفت كل شي في ميزة resources وضفت ملفات فيه يعني بكذا انا دمجت الملفات المرده بي الملف التنفيذي اي بي معنه انه برنامج كامل فيه ملفات وابي امر يستخرج الملفات الي في البرنامج افهمكم اكثر


انا عندي برنامج وابي زر واحد اضغطه يستخرج الملفات الي فيه

يعني انا حاط البرنامج في سطح المكتب وهذا البرنامج اخشه واضغط على زر يسخرج الي في البرنامج الملفات الي حطيته في resources


باختصار المطلوب كود الذي احطه في البوتن



وشكرا


للمعلومه : انا عضو جديد سجلت في هذا المنتدى لكي تفيدوني فلا تقصرون معي
(20-03-14, 07:21 PM)bosqah كتب : [ -> ]يعني انا حاط البرنامج في سطح المكتب وهذا البرنامج اخشه واضغط على زر يسخرج الي في البرنامج الملفات الي حطيته في resources

ماذا تعني بإستخراج الملفات ؟
هل تقصد إستدعائها للاستخدام في البرنامج ؟
أم تريد استخراجها بمعني نسخها الي مكان علي الحاسب ؟

RolleyesRolleyesRolleyes
اخي بمعنى اني اسوي اله عندما اخش عليه اضغط على البوتن يتسخرج الملفات في موقع الاله


ارجو الرد رحم الله والديك
هرد بإذن الله ...
بس انت موضحتش حاجة ... أنا مش فاهم
ما معني كلمة "اله" وكلمة "موقع الاله" HuhHuhHuh

RolleyesRolleyesRolleyes
اخي بمعنى اله اي برنامج اشغله مثال موقعه في ملف في الدكس توب تمام عندما اشغله اضغط على زر في البرنامج ينسخ الملفات في موقع البرنامج



واسف عللى الازعاج

وشكرا
(20-03-14, 08:01 PM)bosqah كتب : [ -> ]واسف عللى الازعاج
وشكرا

فهمتك أخي ... ولا يوجد إزعاج إطلاقا ... نحن في خدماتك ... وفي هذا المنتدي الكل يساعد الكل Heart

هذا الكود يستخدم لحفظ ملف موجود بالـ resources الي المسار التي تريده بإستخدام SaveFileDialog
علي سبيل المثال الملف بصيغة pdf
PHP كود :
Using sfd As New SaveFileDialog
            With sfd
                
.AddExtension True
                
.DefaultExt ".pdf"
                
.Filter "Portable Document Files (*.pdf)|*.pdf"
                
.FilterIndex 1
                
.InitialDirectory My.Computer.FileSystem.SpecialDirectories.MyDocuments
                
.Title "Select The Location To Save This PDF File"
                
.ValidateNames True
            End With
            
If sfd.ShowDialog Windows.Forms.DialogResult.OK Then
                Dim b 
As Byte() = My.Resources.اسم الملف
                My
.Computer.FileSystem.WriteAllBytes(sfd.FileNamebFalse)
            
End If
        
End Using 

علي الرحب والسعة
RolleyesRolleyesRolleyes
اخي بس هل لازم احدد كل صيغه من الاشية التي في resources ومن ثم اعيد الامر ام في امر ثاني يستخرج كل الملفات


لان انا في عندي صيغ كثيره ابي استخرجه


.bat
.txt


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

كل ما عليك تغيير السطر التالي
PHP كود :
.Filter "Portable Document Files (*.pdf)|*.pdf" 
إلي
PHP كود :
.Filter "Portable Document Files (*.txt)|*.txt" 
أو
PHP كود :
.Filter "Portable Document Files (*.bat)|*.bat" 
كما تريد

RolleyesRolleyesRolleyes
اخي انا اريد انسخ جميع الملفات التي داخل resources فكيف احدد جميع الصيغ ما فهمت عليك


اخوي هذا برنامج نفس الي انا بسويه

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

شوف كيف طريقته وتفهمني

البرنامج نضيف

جربه ورد لي خبر كيف الطريقه

وشكرا
هل هذا ما تريده ؟





RolleyesRolleyesRolleyes
الصفحات : 1 2