[عبد الله]

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

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

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

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

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

[أسامة]

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

[Aly El-Haddad]

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

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 من خلال هذه القائمة استطيع استعراض النماذج في المشروع وكذلك استطيع إضافة مجلد يحتوي على نوع معين من الملفات ، كيف يمكن الوصول لهذا المجلد برمجياً بحيث انسخ ما يحتوي إلى مكان معين في القرص الصلب ؟

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

[Aly El-Haddad]

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

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

كود :

Dim folderPath As String = (Application.StartupPath & "\Folder Name")

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

[عبد الله]

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

كيف يكون هذا ؟

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

[Aly El-Haddad]

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

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