HOME       LIST

【VB】ハードディスクのシリアル番号取得

ハードディスクのシリアル番号取得

仕事に重要ではないのはない。リストアップして優先順位を決めて確実に進んで行くのが大事。2016/07/04(DOJEUN)

I'm not really sure about the color. (色がちょっと・・・/色に自信がない)


Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Dim lngSerial As Long

Call GetVolumeInformation("c:\", vbNullString, 0, lngSerial, 0, 0, vbNullString, 0)
MsgBox lngSerial

以前コンテンツ:【VB】For Next文内で途中で抜ける
次のコンテンツ:【VB】ユーザー定義のデータ型で文字列型(String)の定義



Copyright(c) 2007-2020 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional