كود جلب سيريال نمبر القرص الصلب فى خلية معينة

[الرائد77]

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

الملف مرفق

 

Sub GGGG()
Set fso = CreateObject("Scripting.FileSystemObject")
Set driveObject = fso.GetDrive("C")
MsgBox driveObject.serialnumber
Set driveObject = Nothing
Set fso = Nothing

End Sub

 

HARD DISK SERIAL NUMBER.xlsm

[حسين مامون]

ما عليك سوى تغيير سطر في الكود

السطر من

MsgBox driveObject.serialnumber

الى

Range("a1") = driveObject.serialnumber

وسينسخ في الخليةA1

[الرائد77]

بارك الله فيكم