Mi pregunta es tengo el siguiente codigo pero quiero mostrarlo por parte con un boton que diga siguiente por ejemplo que el Primer disco muestre todos los datos
Luego Apretar siguiente y que te muestre los datos del otro disco(Unidad)
Este es el codigo saco los datos mediante un FOR Each Pero los saca todos de una vez:
Se Hace una importacion( imports System .IO )
Sub unid()
' variable para la referencia a los Drives
Dim Drives As DriveInfo
Try
' recorre todos los Drives en la colección con el método GetDrives
For Each Drives In DriveInfo.GetDrives
With Drives
' si se se puede acceder .. lista la información en la ventana inmediato
' If .IsReady = True Then
Label22.Text = "Unidad: " & .Name.ToString
Dim El As Long = CStr(.TotalFreeSpace / 1024.0 ^ 3)
Label21.Text = "Bytes libres: " & El & " GB"
ProgressBar1.Value = El
Dim TS As Long = CStr(.TotalSize / 1000000000)
Label20.Text = "Capacidad: " & Format(TS, "0") & " GB"
Label18.Text = "Volumen: " & .VolumeLabel.ToString
Label17.Text = "Sistema de archivos: " & .DriveFormat.ToString
End With
Next
Catch ex As Exception
'MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
