How to get Volume drive version thru VB.NET?

[Winanjaya]

How to get Volume drive version thru VB.NET? .. please advise ..
TIA

Winanjaya

[DevGrp]

Have you tried Environment.GetLogicalDrives()

Dim drives() As String = Environment.GetLogicalDrives()
        For Each d As String In drives
            MessageBox.Show(d)
        Next

[Winanjaya]

But I though your codes will return error ..


Regards
Winanjaya

[dynamic_sysop]

if you are using vs2002 , change this line ...

For Each d As String In drives

to this ...

Dim d As String
For Each d In drives

[Winanjaya]

But this is not answer my question, what I want is to get the serial no. for drive volume ? .. please advise

Thanks

Winanjaya

[dynamic_sysop]

looks like you want to add a reference to Windows.Management , then do this ...

Dim objMan As New Management.ManagementClass("Win32_DiskDrive")
        Dim objCol As Management.ManagementObjectCollection = objMan.GetInstances
        Dim objItem As Management.ManagementObject
        For Each objItem In objCol
            Dim pi As Management.PropertyDataCollection = objItem.Properties
            Dim p As Management.PropertyData
            For Each p In pi
                Console.WriteLine(p.Name & " : " & Convert.ToString(p.Value))
            Next
        Next

it'll return a mine of info.

[Winanjaya]

But this will work only on XP machine or 2003 .. I need to run on Win 98 or later machine .. any suggestion?

TIA

Winanjaya

[dynamic_sysop]

i built this purposly for you , hope it helps cuz it was a struggle to get right.

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As System.Text.StringBuilder, ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Integer, ByRef lpMaximumComponentLength As Integer, ByRef lpFileSystemFlags As Integer, ByVal lpFileSystemNameBuffer As System.Text.StringBuilder, ByVal nFileSystemNameSize As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim drives As String() = Environment.GetLogicalDrives
        Dim drive As String
        Dim strVolume As New System.Text.StringBuilder(256)
        Dim strFileSys As New System.Text.StringBuilder(256)
        Dim intSerial As Integer
        For Each drive In drives
            GetVolumeInformation(drive, strVolume, 256, intSerial, 0, 0, strFileSys, 256)
            MessageBox.Show(drive & "'s serial number is: " & intSerial & " it's filesystem type is: " & strFileSys.ToString)
        Next
 
    End Sub

[Andy]

I'm gonna set up a fund for dynamic_sysop for all the hard work he does around here!! You are an exceptional coder my friend. Cute kids too, by the way!

[dynamic_sysop]

thanks for the compliments thephantom
i had to finish work a couple of years ago due to severe health problems, so helping people on these boards / coding is my life ( second obviously to my family ) , so any help i provide makes me feel like i can do something usefull