+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=2174)
كيف يمكن دمج مجلد مع المشروع والتعامل معه - عبد الله - 09-03-14
السلام عليكم ورحمة الله وبركاته
إخواني بورك فيكم جميعاً.
لدي أداة وأريد دمج معها مجموعة من المجلدات التي تحتوي على ملفات بحيث استطيع من خلالها نقل محتوى المجلدات ونسخها لمكان ما في الجهاز.
بعد إضافة مجلد للمشروع كيف يمكن التعامل معه ؟
مسألة إرفاق الملفات مع البرنامج سهلة لكني أريد المشروع يكون في ملف واحد وهو ملف البرنامج النهائي.
RE: كيف يمكن دمج مجلد مع المشروع والتعامل معه - أسامة - 11-03-14
هل تقصد نقل المحتوى من مجلد الى اخر ام هل تقصد نقل المحتوى من داخل المشروع الى مجلد اخى ؟
و هل يمكن توضح >إضافة مجلد للمشروع كيف يمكن التعامل معه<
RE: كيف يمكن دمج مجلد مع المشروع والتعامل معه - Aly El-Haddad - 11-03-14
على حسب محتوى الملف استخدم الكود:
PHP كود :
Dim txt As String
txt = System.Text.Encoding.UTF8.GetChars(My.Resources.Resource1)
Dim img As System.Drawing.Image
Using ms As New System.IO.MemoryStream(My.Resources.Resource1)
img = System.Drawing.Image.FromStream(ms)
End Using
Dim wavSound As System.Media.SoundPlayer
Using ms As New System.IO.MemoryStream(My.Resources.Resource1)
wavSound = New System.Media.SoundPlayer(ms)
End Using
RE: كيف يمكن دمج مجلد مع المشروع والتعامل معه - عبد الله - 16-03-14
السلام عليكم ورحمة الله وبركاته
كما تعلمون ان ه يوجد في يمين الشاشة قائمة تسمى Solution Explorer من خلال هذه القائمة استطيع استعراض النماذج في المشروع وكذلك استطيع إضافة مجلد يحتوي على نوع معين من الملفات ، كيف يمكن الوصول لهذا المجلد برمجياً بحيث انسخ ما يحتوي إلى مكان معين في القرص الصلب ؟
اتمنى تكون الفكرة واضحة الآن.
RE: كيف يمكن دمج مجلد مع المشروع والتعامل معه - Aly El-Haddad - 16-03-14
عندما تضيف Folder إلى الـSolution Explorer ستجده بجانب *.vbproj
انسخه إلى مجلد برنامجك و يمكنك الوصول إليه على هذا المسار
كود :
Dim folderPath As String = (Application.StartupPath & "\Folder Name")أما لو لا تريد المستخدم أن يرى المجلد فيمكنك إضافة محتوى المجلد في هيئة Byte Arrays داخل ArrayList إلى My.Settings
RE: كيف يمكن دمج مجلد مع المشروع والتعامل معه - عبد الله - 16-03-14
إقتباس :أما لو لا تريد المستخدم أن يرى المجلد فيمكنك إضافة محتوى المجلد في هيئة Byte Arrays داخل ArrayList إلى My.Settingsكيف يكون هذا ؟
ما أريده هو دمج المجلد مع البرنامج التنفيذي بحيث يصبح كتلة واحدة ، كما في البرامج على هيئة setup.
RE: كيف يمكن دمج مجلد مع المشروع والتعامل معه - Aly El-Haddad - 16-03-14
إقتباس :كيف يكون هذا ؟أضف إلى الإعدادات الإعداد myArr من نوع System.Collections.ArrayList
لإضافة ملفات:
PHP كود :
Dim file1 As Byte() = {128, 128, 255, 0, 255}
Dim file2 As Byte() = {255, 128, 0, 128, 255}
Dim file3 As Byte() = {128, 0, 255, 255, 128}
Dim lst As New List(Of Byte())({file1, file2, file3})
Dim arrList As New ArrayList(lst)
My.Settings.myArr = arrList
PHP كود :
If My.Settings.myArr IsNot Nothing Then
If My.Settings.myArr.Count > 0 Then
Dim file1 As Byte() = My.Settings.myArr(0)
Dim file2 As Byte() = My.Settings.myArr(1)
Dim file3 As Byte() = My.Settings.myArr(2)
Dim file1Str As String = Strings.Join(Array.ConvertAll(file1, Function(a As Byte) CStr(a)), ", ")
Dim file2Str As String = Strings.Join(Array.ConvertAll(file2, Function(a As Byte) CStr(a)), ", ")
Dim file3Str As String = Strings.Join(Array.ConvertAll(file3, Function(a As Byte) CStr(a)), ", ")
Dim outputString As String = Strings.Join({file1Str, file2Str, file3Str}, vbCrLf)
MsgBox(outputString)
End If
End If
إقتباس :ما أريده هو دمج المجلد مع البرنامج التنفيذي بحيث يصبح كتلة واحدة ، كما في البرامج على هيئة setup.إذن لمَ لا توفر على نفسك و تضيف محتويات الملف للـResources