SP2 Problem? With "GetDriveType" API Call

[joshuaand]

Hello,

I am getting a drives type, (Removable Media, HDD, cd rom), and displaying it to the user.

Works great, but not on SP2, it returns a weird drive type (8975933078237085698)

It should return:
"9222812402616107010" = Check for Removable Media
"9222812402616107011" = Check For HardDisks
"9222812402616107013" = Check for Cd-Roms

But as you can see not even close.

Below is the code, anyone know why this is an issue????????

    Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

        Dim strDrives As String() = Environment.GetLogicalDrives()
        Dim drive As String
        For Each drive In strDrives
            Dim strType As String = GetDriveType(drive)
            Dim driveSTR As String = "Unknown Type : "

            TextBox1.Text &= (drive & " is type : ")

            Select Case strType
                Case "9222812402616107010"
                    Check for Removable Media
                    driveSTR = "Removable Media"
                Case "9222812402616107011"
                    Check For HardDisks
                    driveSTR = "Hard Disc"
                Case "9222812402616107013"
                    Check for Cd-Roms
                    driveSTR = "CD-ROM"
                Case Else
                    driveSTR &= strType
            End Select
            TextBox1.Text &= driveSTR & vbCrLf
        Next

 

[PlausiblyDamp]

You could use the System.Management namespace instead like

Dim diskClass As New ManagementClass("Win32_LogicalDisk")
        Dim disks As ManagementObjectCollection = diskClass.GetInstances()
        Dim disksEnumerator As _
        ManagementObjectCollection.ManagementObjectEnumerator = _
        disks.GetEnumerator()
        While disksEnumerator.MoveNext()
            Dim disk As ManagementObject = _
            DirectCast(disksEnumerator.Current, ManagementObject)

            Drive letter is the caption, message is the type where
            NoRoot = 1, Removable = 2, LocalDisk = 3, Network = 4,CD = 5, RAMDrive = 6
            MessageBox.Show(disk("DriveType").ToString, disk("deviceid").ToString)
        End While

or alternatively change the declaration to

Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer

 

[joshuaand]

Thanks!

Thankyou,

I used a base of your code to end up with the following, which gives me everything:

Hello,

        TextBox1.Text = ""
        Dim diskClass As New ManagementClass("Win32_LogicalDisk")
        Dim disks As ManagementObjectCollection = diskClass.GetInstances()
        Dim disksEnumerator As ManagementObjectCollection.ManagementObjectEnumerator = disks.GetEnumerator()
        While disksEnumerator.MoveNext()
            Dim disk As ManagementObject = DirectCast(disksEnumerator.Current, ManagementObject)

            Dim propNames As StringCollection = New StringCollection
            Dim props As PropertyDataCollection = diskClass.Properties

            For Each driveProperty As PropertyData In props
                propNames.Add(driveProperty.Name)
            Next

            TextBox1.Text &= " Drive " & disk("deviceid").ToString & "\ Properties: " & vbCrLf

            Dim idx As Int16 = 0

            For Each strProp As String In propNames
                If Not disk(strProp) Is Nothing Then
                    TextBox1.Text &= strProp & ": " & disk(strProp).ToString
                Else
                    TextBox1.Text &= strProp & ": NOTHING"
                End If
                TextBox1.Text &= vbCrLf
            Next
            TextBox1.Text &= vbCrLf & vbCrLf

        End While