C# / VB.NET - [vb.net] lista hard disk

vorrei lasciarvi perdere, ma non ci riesco, non uccidetemi.
ho questo codice:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lista.BeginUpdate()
lista.Items.Clear()

Dim s As String
' Ciclo che viene eseguito per enumerare tutte le unità disco.
For Each s In Directory.GetLogicalDrives

'Variabili Interne al ciclo
Dim drive As New IO.DriveInfo(s)
Dim spaziodisp As Long
Dim spazio_tot As Long
Dim spazio_occ As Long
'Item del controllo ListView
Dim subit As New ListViewItem(s)

'Gestisco eccezione
Try
'Converto da Byte a MegaByte
spaziodisp = drive.AvailableFreeSpace / 1048576
spazio_tot = drive.TotalSize.ToString / 1048576
'Spazio Occupato
spazio_occ = spazio_tot - spaziodisp

'Inserisco le informazioni nelle Colonne
subit.SubItems.Add(spaziodisp.ToString + " MB".Text.ToString()
subit.SubItems.Add(spazio_occ.ToString + " MB".Text.ToString()
subit.SubItems.Add(spazio_tot.ToString + " MB".Text.ToString()
subit.SubItems.Add(drive.DriveFormat.ToString).Text.ToString()

Catch ex As Exception
End Try
'Aggiungo il tutto alla List View Lista
lista.Items.Add(subit)
Next
lista.EndUpdate()

End Sub



mi da la lista di tutti i drive, come isolo gli hard disk? solo gli hd, niente pennette, cd, altro niente.

ti basta controllare il
driveformat
se è NTFS è HD se è FAT è periferica

io ho utilizzato una semplice listbox, e mi dice solo il nome dei drives, però vedo che nel codice teoricamente parlando dovrebbe inserire diverse cose, che componente consigliate?

Io ho una partizione in FAT per i dati... così non risolvi nulla. E le periferiche esterne che hanno molta capienza sono formattate in NTFS

(beh quello che hai detto mi è nuovo...)

prova con un datagrid
-una colonna per i volumi
-una per lo spazio
-volendo anche altre per altre informazioni

per ottenere il tipo di volume controlla drivetype con un select case

      Dim driveinfo As New IO.DriveInfo(volume)
            Select Case driveinfo.DriveType
                Case IO.DriveType.CDRom
                    ListBox2.Items.Add("cdrom")
                Case IO.DriveType.Fixed
                    ListBox2.Items.Add("hard drive")
                Case IO.DriveType.Network
                    ListBox2.Items.Add("network")
                Case IO.DriveType.NoRootDirectory
                    ListBox2.Items.Add("no cartella")
                Case IO.DriveType.Ram
                    ListBox2.Items.Add("ram")
                Case IO.DriveType.Removable
                    ListBox2.Items.Add("periferica rimovibile")
                Case IO.DriveType.Unknown
                    ListBox2.Items.Add("sconosciuto")
            End Select