[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي ابراهيم ..

يبدو أنّ مأدبة العرس لم يتم تحضيرها بعد ..

برنامج به العديد من المواصفات و الأكواد الرائعة .. إلاّ سيريال الاسطوانة لم يتم جلبه

تحياتي واحتراماتي

---

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

كود :

   Function GetDriveSerialNumber(ByVal driveLetter As Char) As String
       Dim driveFilter As String = "Win32_LogicalDisk='" & driveLetter.ToString & ":'"
       Dim drive As New System.Management.ManagementObject(driveFilter)
       Return drive("VolumeSerialNumber")
   End Function