هل لديك فكرة ..؟ حاول أن تجيب !

نعم عن طريق دوال api

أخي زعيم أيضا نستطيع فعل ذلك بدون دوال API ، أنظر المثال التالي :

Private Sub Form_Load()

'

Dim SetObject, ReadSerialNumber

'

Set SetObject = CreateObject("Scripting.FileSystemObject")

Set ReadSerialNumber = SetObject.GetDrive(SetObject.GetDriveName(SetObject.GetAbsolutePathName("d:")))

'

MsgBox ReadSerialNumber.SerialNumber

'

End Sub

على فكرة غير حرف d الموجود في الكود بحرف ال CD-ROM

تحياتي .