تقييم الموضوع :
  • 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
السلام عليكم

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 44 1,397 أمس, 02:01 PM
آخر رد: tryold
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 60 07-12-16, 12:20 AM
آخر رد: amgad525
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 106 04-12-16, 12:37 AM
آخر رد: ali.alfoly
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 52 03-12-16, 06:59 PM
آخر رد: sal.softip
  [VB.NET] طلب التعديل في كود بسيط rabeh.ram 2 65 29-11-16, 11:10 PM
آخر رد: rabeh.ram
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 85 24-11-16, 11:40 PM
آخر رد: mohammedbassim
  [VB.NET] حماية برنامج من سرقة السورس كود thevirus 1 70 20-11-16, 07:41 PM
آخر رد: محمود بكرى
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 87 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان
Lightbulb [سؤال] كود برنامج string يبحث و يحذف a_abdullah 9 162 07-11-16, 11:55 PM
آخر رد: a_abdullah

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


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