تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب عمل برنامج بسيط لو سمحتم
#1
السلام عليكم ورجمة الله وبركاته........
اريد طريقة عمل برنامج يقوم يتغير ايقونات المجلدات اللى داخل كل قرص
مثلا القرص c داخله مجلدات والقرص e داخله ايضا مجلدات وهكذا..........
فانا عاوز البرنامج بدلا من ان يغير ايقونة الاقراص يغير ايقونة المجلدات
كلها اللى داخل كل قرص حسب ما احدد انا... يعنى احدد القرص c مثلا واضغط على الزر
فيقوم بتغيير جميع اايقونات لمجلدات الموجود داخل الc لا ان يقوم بتغيير مجلد واحد فقط
بل جميع مجلدات الc وهكذا بالنسبة للباقى.......
وجزاكم الله كل خير......
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

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

PHP كود :
Public Sub ChangeFolderIconTo(Folderpath As StringIconPath 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(FolderpathFileAttributes.System)
        
End Sub 

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

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

بالتوفيق ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#3
sajad كتب :السلام عليكم

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

PHP كود :
Public Sub ChangeFolderIconTo(Folderpath As StringIconPath 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(FolderpathFileAttributes.System)
        
End Sub 

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

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

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

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

انظر الى هذا الموضوع تغيير أيقونة المجلدات
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 58 25-02-17, 06:31 PM
آخر رد: khodor1985
  [سؤال] فكرة عمل برنامج تنبيهات abdulla2 1 86 20-02-17, 12:47 AM
آخر رد: EnormousSoft
  [كود] كود برنامج chat متعدد المستخدمين YazanOtoum 2 70 17-02-17, 11:54 PM
آخر رد: احمد مهران
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 147 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  [VB.NET] المشروع جاهز ولكن بحاجة لتعديل بسيط 3asfa~mdmra 2 149 14-02-17, 01:00 AM
آخر رد: 3asfa~mdmra
  تصميم برنامج امتحان الاوفيس والويندوز القيصر بيلا 0 62 12-02-17, 03:07 PM
آخر رد: القيصر بيلا
  طلب برنامج لزيادة دقة الصور احمد علي احمد سلمان 1 84 10-02-17, 05:33 PM
آخر رد: مساعدة
  اخفاء برنامج بعد استدعائه وتشغيله moshax 4 120 07-02-17, 09:53 PM
آخر رد: moshax
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 187 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  [سؤال] كيف اربط بين 3 كومبو بوكس لو سمحتم farhat 8 244 06-02-17, 02:00 AM
آخر رد: farhat

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم