visual-studio-2010 - Visual Basic 2010 を使用してボリューム シリアル番号を取得する方法

Question

Visual Basic 2010 を使用してボリューム シリアル番号を取得しようとしていますが、

これを行う方法を示すコード例全体はありますか?

ありがとう

Answer 1

私の質問に対する最も簡単な答えは、次のように与えられたと思います。

Hans Passant: 彼のリンクから、

この関数をコピーして貼り付けたところ、Microsoft Visual Basic 2010 Express で動作し、変更はありません。

Public Function GetDriveSerialNumber() As String
    Dim DriveSerial As Long
    Dim fso As Object, Drv As Object
    'Create a FileSystemObject object
    fso = CreateObject("Scripting.FileSystemObject")
    Drv = fso.GetDrive(fso.GetDriveName(AppDomain.CurrentDomain.BaseDirectory))
    With Drv
        If .IsReady Then
            DriveSerial = .SerialNumber
        Else    '"Drive Not Ready!"
            DriveSerial = -1
        End If
    End With
    'Clean up
    Drv = Nothing
    fso = Nothing
    GetDriveSerialNumber = Hex(DriveSerial)
End Function

皆様のご協力に感謝いたします。

質問を繰り返して申し訳ありません。Google 検索とスタックフロー検索を行いましたが、私の検索は「Visual Basic 2010 でハード ドライブのシリアル番号を取得する」でした。

そのため、このウェブサイトは表示されませんでした。

再度、感謝します