Code:
Class Test
    Public Shared Sub Main()
        Dim allDrives() As DriveInfo = DriveInfo.GetDrives()

        Dim d As DriveInfo
        Dim hdname As String
        For Each d In allDrives
            If d.IsReady = True Then
                hdname = d.VolumeLabel
            End If
        Next
    End Sub
End Class
I tried that, but when i go into the other section of my code, it dosnt recognise the "hdname" variable