Question

VBA 获取C盘序列号和获取硬盘序列号！

Sub DriveID()
Dim DriveID
Set DriveID = CreateObject("Scripting.FileSystemObject")
MsgBox "C盘的序列号是：" & DriveID.GetDrive("C").SerialNumber, 64
End Sub

上面是获取C盘序列号 如何改一下填写到单元格A1

另外获取硬盘序列号填写到A1是怎么写的？、

Answer 1

Sub DriveID()
Dim DriveID
Set DriveID = CreateObject("Scripting.FileSystemObject")
[a1] = DriveID.GetDrive("C").SerialNumber
End Sub