View Logical Drives 1

[camjon]

Does anyone know how you can view the logical drives on your computer using VBA, I am having a lot of trouble starting out.

 

[PHV]

You may use WMI (the Win32_LogicalDisk class).

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[camjon]

Thanks PHV.
I have just one more question, can you use the WMI (the Win32_LogicalDisk class) with version 6.

 

[PHV]

with version 6 of what ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[camjon]

version 6 of VBA

 

[PHV]

A starting point:

Dim objWMIService, colItems, objItem
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk", "WQL", &H30)
For Each objItem In colItems
  Debug.Print "Caption: " & objItem.Caption & ", DeviceID: " & objItem.DeviceID & ", Name: " & objItem.Name
  Debug.Print "Description: " & objItem.Description
  Debug.Print "ProviderName: " & objItem.ProviderName
  Debug.Print "VolumeName: " & objItem.VolumeName & ",VolumeSerialNumber: " & objItem.VolumeSerialNumber
  Debug.Print "FreeSpace: " & objItem.FreeSpace & ", Size: " & objItem.Size
  Debug.Print
Next

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886