كود الرقم المسلسل الثابت للفلاش ميموري

السلام عليكم جميعا أعضاء ومشرفين

الكود التالي تفضل به الأخ ماكس بالمنتدي

وهو للحصول علي الرقم التسلسلي لل usb الخارجية كالفلاش ميموري وهو يعمل جيدا ولكن المشكلة أن الرقم التسلسلي الناتج هو رقم بارتيشن أيرقم متغير مع عملية الفورمات فهل هناك طريقة للحصول علي الرقم الثابت

مثل طريقة الهارد ديسك التي قدمها سابقا مهندس أسامة المقدم

وهل هناك أمر برمجي بالفيجوال يستطيع تحديد مكان الفلاسش مثل الأمر الذي يقوم بتحديد سواقة الاقراص المدمجة نرجو ألا نكون اثقلنا عليكم وشكرا مقدما

code]Private Sub Form_Load()

Dim SerialN As New FileSystemObject

Text1.Text = Hex(SerialN.GetDrive("E:\").SerialNumber)

End Sub

وطبعا E هو رقم دريف الفلاشة او MP3 PLAYER