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

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