- WMI Fun !! -|WMI Step|WMI Sample|WMI Reference|WMI Library|Links|About WMI Fun !!
Home > WMI Sample > ファイルの各種属性を取得する
オトクなグルメ情報ならホットペッパー!、クーポン券をゲットしよう
PC関連新製品情報をゲットしたい方はキーマンズネットにアクセス!!
ファイルの各種属性を取得する: CIM_DataFile
Topics

ファイルの各種属性を取得するサンプルです。CIM_DataFileクラスを使用します。


Sample Code (VB6)

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 & _
"アーカイブ:" & Cdf.Archive & vbCrLf & _
"圧縮:" & Cdf.Compressed & vbCrLf & _
"暗号化:" & Cdf.Encrypted & vbCrLf & _
"隠しファイル:" & Cdf.Hidden & vbCrLf & _
"読み取り専用:" & CBool(Not (Cdf.Writeable)) & vbCrLf & _
"システムファイル:" & Cdf.System & 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ファイルを検索して各種属性を表示します。読み取り専用属性の取得に関してはちょっと遠回りな考え方で書き込めるかどうかの判断のになるためNot関数を通してます。

CIM_DataFile クラスに関連するサンプルは他に、

  • ファイルの作成日時/更新日時を取得する
  • ファイルサイズを取得する
  • を紹介しています。
    なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。


    Latest sample information

  • SQL Server 2008のインスタンス情報を取得する
  • SQL Server 2008のバージョンやその他プロパティ値を取得する
  • プロセッサ(CPU)の使用率を取得する
  • ネットワークアダプタにデフォルトゲートウェイアドレスを設定する
  • ネットワークアダプタにDNSアドレスを設定する

  • ご意見・ご感想をこちらのアンケートからお待ちしています
    解らないIT/パソコン用語はIT単語帳で調べてみては?登録無料で使えます

    - WMI Fun !! -
    http://www.wmifun.net/
    Microsoft社のテクノロジーであるWMI(Windows Management Instrumentation)の使い方を
    Visual Basicを使ってのんびり公開しています
    VBや.Net Framework(VB,C#)以外でもWSH(VBS)やPowerShellなどのスクリプトでも使えますよ!
    資産管理や監視業務の効率化、システム系ツール開発にお勧めです

    This web site created by Toh.
    Copyright(C) 1997-2010 WMI Fun !!. All rights reserved. このサイトへのリンクはフリーです
    ∧ ページの先頭へ…