|
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.
| ![C# / VB.NET - [vb.net] lista hard disk](/data/logos/logositov9.png)
