Buongiorno a tutti. Ho bisogno del vostro aiuto.
Devo ricercare sul mio pc tutti i drivers.
Una volta trovati, vengono elencati in una datagridview.
Il problema è che l'ultimo drive viene elencato due volte.
Ho verificato il software e tutti i cicli vengono effettuati correttamente.
La colpa è della dgw, perchè se uso una listbox il problema non si presenta.
(uso la datagridview perchè voglio una rappresentazione grafica, che (per quel che ho capito(!)) non è possibile con la listbox).
Imports System.IO
Public Class Prova
Private Sub Prova_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dgv1.Rows.Clear()
Dim ndisk As Integer = My.Computer.FileSystem.Drives.Count
Dim InImg As Image
Dim x As Integer = 0
Dim cercaDrivers = My.Computer.FileSystem.Drives
For Each info In cercaDrivers
Dim unita As New DriveInfo(info.Name)
Dim tipo As String
Select Case unita.DriveType
Case DriveType.CDRom
tipo = "CD-ROM"
InImg = My.Resources.Resource1.dvd
Case DriveType.Fixed
tipo = "Disco Fisso"
InImg = My.Resources.Resource1.FissoWindows
Case DriveType.Removable
tipo = "Rimuovibile"
InImg = My.Resources.Resource1.usb
Case DriveType.Unknown
tipo = "Sconosciuto"
InImg = My.Resources.Resource1.volume
End Select
dgv1.Rows(x).Cells(0).Value = InImg
dgv1.Rows(x).Cells(1).Value = unita
dgv1.Rows(x).Cells(2).Value = tipo
dgv1.Rows.Add(InImg, unita, tipo)
x += 1
Next
End Sub