フォルダの有無を確認する: Win32_Directory
■Topics
指定したフォルダの有無を取得するサンプルです。Win32_Directoryクラスを使用します。
Private Sub Command1_Click()
Dim FolSet As SWbemObjectSet
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set FolSet = Service.ExecQuery("Select * From Win32_Directory Where Name = 'C:\\windows'")
If FolSet.Count > 0 Then
MsgBox "フォルダが見つかりました。"
Else
MsgBox "フォルダが見つかりませんでした。"
End If
Set FolSet = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim FolSet As SWbemObjectSet
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set FolSet = Service.ExecQuery("Select * From Win32_Directory Where Name = 'C:\\windows'")
If FolSet.Count > 0 Then
MsgBox "フォルダが見つかりました。"
Else
MsgBox "フォルダが見つかりませんでした。"
End If
Set FolSet = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行すると今回のサンプルではCドライブ上にWindowsフォルダが存在するかどうか確認します。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。