Dim Fxd = IO.DriveType.Fixed
For Each Fixed In My.Computer.FileSystem.Drives.Count.ToString

Next

is this right?

no that is incorrect.

 

What exactly do you want to do?

if you want to list the drive types of your system, try:

 

For Each curDrive as DriveInfo In My.Computer.FileSystem.Drives    If curDrive.DriveType = DriveType.Fixed Then       MessageBox.Show(curDrive.Name)    End If Next

 

is this what you are after?

no that is incorrect.

 

What exactly do you want to do?

if you want to list the drive types of your system, try:

 

For Each curDrive as DriveInfo In My.Computer.FileSystem.Drives    If curDrive.DriveType = DriveType.Fixed Then       MessageBox.Show(curDrive.Name)    End If Next

 

is this what you are after?

hi,

Is your problem solved?

Bhanu.

Function DiskDraw()

For Num As Integer = 0 To My.Computer.FileSystem.Drives.Count - 1

If My.Computer.FileSystem.Drives.Item(Num).DriveType = IO.DriveType.Fixed Then

DiskGraph(Num) = New Label : With DiskGraph(Num)

.Parent = DiskBox(Num) : .BorderStyle = BorderStyle.Fixed3D

.BackColor = Color.FromKnownColor(KnownColor.Control)

.Location = New Point(6, 16) : .Size = New Size(94, 8)

End With

End If

Next

Return Nothing

End Function

in the yellow color are there any suggetion!

Thats pretty much what I have supplied in my post