■Topics

---

ページファイルの情報を取得するサンプルです。Win32_PageFileSettingクラスを使用しています。

---

■Sample Code

---

Private Sub Command1_Click()

Dim PgfSet As SWbemObjectSet
Dim Pgf As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set PgfSet = Service.ExecQuery("Select * From Win32_PageFileSetting")

For Each Pgf In PgfSet

    MesStr = MesStr + "ページファイルの場所：" + Pgf.Name & vbCrLf & _
            "初期サイズ：" + CStr(Pgf.InitialSize) & vbCrLf & _
            "最大サイズ：" + CStr(Pgf.MaximumSize) & vbCrLf

Next

MsgBox "ページファイルの情報です。" + vbCrLf + _
                vbCrLf + MesStr + vbCrLf + "ですよ。"

Set PgfSet = Nothing
Set Pgf = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub

---

■Comment

---

では実行してみましょう。
現在存在しているページファイルを列挙しそれぞれのパスと初期サイズ・最大サイズを表示します。

---