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

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

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

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