ファイルサイズを取得する: CIM_DataFile - WMI Sample (VB)

Topics

ファイルサイズを取得するサンプルプログラムです。
CIM_DataFile クラスを使用します。

VBS (WSH) 版のサンプルコードはこちらで公開しています。

Sample Code

Private Sub Command1_Click()

Dim CdfSet As SWbemObjectSet
Dim Cdf As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set CdfSet = Service.ExecQuery("Select * From CIM_DataFile Where Name = 'c:\\boot.ini'")

For Each Cdf In CdfSet

MesStr = "ファイル名: " & Cdf.Name & vbCrLf & _
"8.3 ファイル形式: " & Cdf.EightDotThreeFileName & vbCrLf & _
"ファイルサイズ: " & Cdf.FileSize & vbCrLf & _
"ファイルの種類: " & Cdf.FileType & vbCrLf

Next

MsgBox "ファイルサイズです。" & vbCrLf & _
vbCrLf & MesStr & vbCrLf & "ですよ。"

Set CdfSet = Nothing
Set Cdf = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub

Comment

実行すると C ドライブにある、boot.ini ファイルを検索してファイルサイズをを表示します。今回のサンプルでは同時に 8.3 形式のファイル名とファイルの種類も表示するようにしてあります。
なお WMI の使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShell を対象) に関しては、WMI Step も参考にしてみてください。(WMI 初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソースコードテンプレートも公開しています。WMI プログラム/スクリプト作成時に役立てば…と思っています。

Recommended book

個人的にお勧めする本の紹介です。


WMI Fun !! > WMI Sample (VB) > ファイルサイズを取得する

WMI Fun !! > WMI Sample (VB) > ファイルサイズを取得する

ファイルサイズを取得する: CIM_DataFile - WMI Sample (VB)

Topics

Sample Code

Comment

Recommended book