Get list of local drives on PC

[greg_quinn]

I have the following code that gets a list of logical drives on a PC

Dim driveArray() As String

driveArray = System.IO.Directory.GetLogicalDrives

Dim en As System.Collections.IEnumerator
en = driveArray.GetEnumerator

Problem is, this also returns mapped network drives, how can I get a list of only local drives on a PC?

Thanks

[vutle]

Dim driveArray() As String = System.IO.Directory.GetLogicalDrives
        For i As Integer = 0 To UBound(driveArray)
            TextBox1.Text += driveArray(i) & vbCrLf
        Next i

[greg_quinn]

How does this help me?

This will also display mapped network drives

[Negative0]

Public Sub ShowDrives()
        ' Show all  drives on the local system.
        ' Uses System.Management, so you need to create a reference in your project
        
        Const NoRoot As Integer = 1
        Const Removable As Integer = 2
        Const LocalDisk As Integer = 3
        Const Network As Integer = 4
        Const CD As Integer = 5
        Const RAMDrive As Integer = 6
 
        Dim Scope As ManagementScope = New ManagementScope(ManagementPath.DefaultPath)
        Dim Query As New SelectQuery("Win32_LogicalDisk")
        Dim Searcher As New ManagementObjectSearcher(Scope, Query)
        Dim Iterator As ManagementObject
 
        For Each Iterator In Searcher.Get()
            If Iterator.Item("DriveType").ToString = LocalDisk.ToString Then
                Console.WriteLine( _
                    "Found Local Drive, drive letter: " & _
                    Iterator.Item("DeviceID").ToString & "(" & _
                    Iterator.Item("Description").ToString & ")")
            End If
        Next
    End Sub