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

السلام عليكم ورحمة الله وبركاته

إخواني بورك فيكم جميعاً.

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

بعد إضافة مجلد للمشروع كيف يمكن التعامل معه ؟

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

هل تقصد نقل المحتوى من مجلد الى اخر ام هل تقصد نقل المحتوى من داخل المشروع الى مجلد اخى ؟
و هل يمكن توضح >إضافة مجلد للمشروع كيف يمكن التعامل معه<

على حسب محتوى الملف استخدم الكود:

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 

السلام عليكم ورحمة الله وبركاته

كما تعلمون ان ه يوجد في يمين الشاشة قائمة تسمى Solution Explorer من خلال هذه القائمة استطيع استعراض النماذج في المشروع وكذلك استطيع إضافة مجلد يحتوي على نوع معين من الملفات ، كيف يمكن الوصول لهذا المجلد برمجياً بحيث انسخ ما يحتوي إلى مكان معين في القرص الصلب ؟

اتمنى تكون الفكرة واضحة الآن.

عندما تضيف Folder إلى الـSolution Explorer ستجده بجانب *.vbproj

انسخه إلى مجلد برنامجك و يمكنك الوصول إليه على هذا المسار

كود :
Dim folderPath As String = (Application.StartupPath & "\Folder Name")

أما لو لا تريد المستخدم أن يرى المجلد فيمكنك إضافة محتوى المجلد في هيئة Byte Arrays داخل ArrayList إلى My.Settings

إقتباس :أما لو لا تريد المستخدم أن يرى المجلد فيمكنك إضافة محتوى المجلد في هيئة Byte Arrays داخل ArrayList إلى My.Settings

كيف يكون هذا ؟

ما أريده هو دمج المجلد مع البرنامج التنفيذي بحيث يصبح كتلة واحدة ، كما في البرامج على هيئة setup.

إقتباس :كيف يكون هذا ؟

أضف إلى الإعدادات الإعداد 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

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

عبد الله

أسامة

Aly El-Haddad

عبد الله

Aly El-Haddad

عبد الله

Aly El-Haddad