! წ…℅……ঔღঔ…ੲੜ منتديات جوكر ੲੜ…ঔღঔ……℅…წ
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

! წ…℅……ঔღঔ…ੲੜ منتديات جوكر ੲੜ…ঔღঔ……℅…წ


 
الرئيسيةأحدث الصورالتسجيلدخول

 

 كود لتغيير اسماء محركات الأقراص

اذهب الى الأسفل 
3 مشترك
كاتب الموضوعرسالة
Admin
مؤسس منتديات الجوكر
مؤسس منتديات الجوكر
Admin


الجنس : ذكر عدد المساهمات : 132
السٌّمعَة : 3
تاريخ التسجيل : 03/08/2009
الموقع : منتديات جوكر احلى موقع

كود  لتغيير اسماء محركات الأقراص Empty
مُساهمةموضوع: كود لتغيير اسماء محركات الأقراص   كود  لتغيير اسماء محركات الأقراص I_icon_minitimeالثلاثاء أغسطس 04, 2009 2:55 am

اكتب في قسم التصاريح واعتماداً على دوال مكتبة kernel32 :

الكود:
Option Explicit
Private Declare Function SetVolumeLabel Lib "kernel32" Alias _
"SetVolumeLabelA" (ByVal lpRootPathName As String, _
ByVal lpVolumeName As String) As Long

وفي الكود :

الكود:
Dim lAns As Long

On Error Resume Next
lAns = SetVolumeLabel(DriveLetter, NewDriveVolume)
ChangeVolumeLabel = (lAns <> 0)

End Function

تحياتي لكم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://jo0oker7.hooxs.com
مصطفى السلطان
جوكر جـيد جدا
جوكر جـيد جدا
avatar


عدد المساهمات : 80
السٌّمعَة : 3
تاريخ التسجيل : 12/08/2009

كود  لتغيير اسماء محركات الأقراص Empty
مُساهمةموضوع: رد: كود لتغيير اسماء محركات الأقراص   كود  لتغيير اسماء محركات الأقراص I_icon_minitimeالأربعاء أغسطس 12, 2009 1:05 am

مشكووووووووور

دوم الابداع و التميز

تحياتي لكـــ , و تقبل مروري
الرجوع الى أعلى الصفحة اذهب الى الأسفل
القناص
جوكر
جوكر
avatar


عدد المساهمات : 72
السٌّمعَة : 0
تاريخ التسجيل : 12/08/2009

كود  لتغيير اسماء محركات الأقراص Empty
مُساهمةموضوع: رد: كود لتغيير اسماء محركات الأقراص   كود  لتغيير اسماء محركات الأقراص I_icon_minitimeالجمعة سبتمبر 04, 2009 9:12 am

اكود مفيدة و موصوع مفيد

شكرا لك اخي

و تقبل مروري
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كود لتغيير اسماء محركات الأقراص
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
! წ…℅……ঔღঔ…ੲੜ منتديات جوكر ੲੜ…ঔღঔ……℅…წ :: ¨°o.O (ركن لغات البرمجة) O.o°¨ :: ¨°•√♥ منتدى اكواد و كتب فيجوال بيسك♥√•°¨-
انتقل الى: