ドライブのシリアルナンバーを調べたい

質問

お世話になります。
ドライブのシリアルナンバーを取得するvbaコードを見つけたのですが、
これをVisualBasic2008EEで表現するとどうなるのでしょうか。
お解かりの方おりましたらよろしくお願い致します。
Dim FSO, DriveObject
Set FSO = CreateObject("Scripting.FileSystemObject")
''Cドライブのシリアルナンバーを表示します
MsgBox FSO.GetDrive("C").SerialNumber
Set FSO = Nothing

回答No.1

noname#259269 · ベストアンサー

Dim FSO = CreateObject("Scripting.FileSystemObject")
MsgBox(FSO.GetDrive("C").SerialNumber)
System.Runtime.InteropServices.Marshal.ReleaseComObject(FSO)

お礼

edp3142さん
はじめまして
できました。
大切に使わせていただきます。
ありがとうござました。

回答No.2

noname#259269

こうでした。

Dim FSO = CreateObject("Scripting.FileSystemObject")
Dim DriveObject = FSO.GetDrive("C")
MsgBox(DriveObject.SerialNumber)
System.Runtime.InteropServices.Marshal.ReleaseComObject(DriveObject)
System.Runtime.InteropServices.Marshal.ReleaseComObject(FSO)

お礼

お礼💌、忘れてました
ごめんなさい🙏