掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ハードディスクのシリアル番号の取得方法 (ID：78477)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ファイルシステムオブジェクトを使用すればシリアル番号や空き容量等が取得できます。 フォームにラベルコントロールを貼り付けて下記のコードを実行してみて下さい。 詳細はヘルプや検索サイト等でFileSystemObjectを調べてください。 Dim fs As Object Dim drv As Object Set fs = CreateObject("Scripting.FileSystemObject") 'ファイルシステムオブジェクト作成 For Each drv In fs.Drives 'ハードディスクシリアル番号一覧を作成 If drv.DriveType = 2 Then Label1.Caption = Label1.Caption & drv.driveletter & ": " & Format$(drv.SerialNumber) & vbCrLf End If Next Set fs = Nothing
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.