[سامى ابوسريع]

السلام عليكم ورجمة الله وبركاته........
اريد طريقة عمل برنامج يقوم يتغير ايقونات المجلدات اللى داخل كل قرص
مثلا القرص c داخله مجلدات والقرص e داخله ايضا مجلدات وهكذا..........
فانا عاوز البرنامج بدلا من ان يغير ايقونة الاقراص يغير ايقونة المجلدات
كلها اللى داخل كل قرص حسب ما احدد انا... يعنى احدد القرص c مثلا واضغط على الزر
فيقوم بتغيير جميع اايقونات لمجلدات الموجود داخل الc لا ان يقوم بتغيير مجلد واحد فقط
بل جميع مجلدات الc وهكذا بالنسبة للباقى.......
وجزاكم الله كل خير......

[Sajad]

السلام عليكم

تفضل أخي العزيز هذه الدالة تقوم بالمطلوب:

PHP كود :

Public Sub ChangeFolderIconTo(Folderpath As String, IconPath As String)
            ' حذف الملف إن وجد
            If File.Exists(Folderpath & "\desktop.ini") Then
                File.Delete(Folderpath & "\desktop.ini")
            End If

            ' في مسار المجلد المراد تغيير أيقونته desktop.ini انشاء ملف باسم 
            Dim sw As StreamWriter = File.CreateText(Folderpath & "\desktop.ini")
            sw.WriteLine("[.ShellClassInfo]")
            sw.WriteLine("IconFile=" & IconPath)
            sw.WriteLine("IconIndex=0")
            sw.Close()

            ' جعل الملف مخفي
            File.SetAttributes(Folderpath & "\desktop.ini", FileAttributes.Hidden)

            ' جعل الملف من ملفات النظام بمعنى جعل الملف جزء من نظام التشغيل
            File.SetAttributes(Folderpath, FileAttributes.System)
        End Sub 


الكود كان بال#C من موقع وحولته الى VB

مع اضافة مجال الاسماء Import.System.IO

بالتوفيق ان شاءالله

[سامى ابوسريع]

sajad كتب :السلام عليكم

تفضل أخي العزيز هذه الدالة تقوم بالمطلوب:

PHP كود :

Public Sub ChangeFolderIconTo(Folderpath As String, IconPath As String)
            ' حذف الملف إن وجد
            If File.Exists(Folderpath & "\desktop.ini") Then
                File.Delete(Folderpath & "\desktop.ini")
            End If

            ' في مسار المجلد المراد تغيير أيقونته desktop.ini انشاء ملف باسم 
            Dim sw As StreamWriter = File.CreateText(Folderpath & "\desktop.ini")
            sw.WriteLine("[.ShellClassInfo]")
            sw.WriteLine("IconFile=" & IconPath)
            sw.WriteLine("IconIndex=0")
            sw.Close()

            ' جعل الملف مخفي
            File.SetAttributes(Folderpath & "\desktop.ini", FileAttributes.Hidden)

            ' جعل الملف من ملفات النظام بمعنى جعل الملف جزء من نظام التشغيل
            File.SetAttributes(Folderpath, FileAttributes.System)
        End Sub 


الكود كان بال#C من موقع وحولته الى VB

مع اضافة مجال الاسماء Import.System.IO

بالتوفيق ان شاءالله

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

[Sajad]

السلام عليكم

انظر الى هذا الموضوع تغيير أيقونة المجلدات