Arnold bin Boon Hoo Ответов: 1

Volumelabel диска не может храниться в массиве

Я пытаюсь сохранить список дисков с ПК в массив, но обнаружил, что он не хранит эту информацию. Мне нужен совет, пожалуйста.

Что я уже пробовал:

Dim _listofDrive as new List(of string)

For Each driveList As IO.DriveInfo In IO.DriveInfo.GetDrives

            Dim driveType As String = driveList.DriveType
            Dim driveName As String = driveList.VolumeLabel

            If IO.DriveType.Fixed Then
                 _listofDrive.Add(driveName)
            End If

        Next

Dave Kreskowiak

Вам действительно нужно еще раз взглянуть на это утверждение IF. Вы не сравниваете полученные вами значения ни с чем.

Arnold bin Boon Hoo

- сэр, я постараюсь кое-что исправить.

Dave Kreskowiak

С чем же вы сравниваете, что "Ио.Drivetype-значение.Исправлено" к? - Ничего!

Arnold bin Boon Hoo

Dim allDrives () As DriveInfo = DriveInfo. GetDrives()

Dim d как DriveInfo
Для каждого d в allDrives
если d. DriveType = тип привода.Исправлено: _listofDrive.Добавить (имя диска)
Следующий

результат все тот же, нулевой

1 Ответов

Рейтинг:
2

Graeme_Grant

Здесь вы идете:

Dim _listofDrive As New List(Of String)

For Each d As DriveInfo In DriveInfo.GetDrives()
    If d.DriveType = DriveType.Fixed Then
        _listofDrive.Add(d.Name)
    End If
Next

***********************************************************************
** Неформатированная версия ниже из-за текущей ошибки форматирования сайта:

Dim _listofDrive как новый список (строки)

Для каждого d как DriveInfo в DriveInfo. GetDrives()
Если d. DriveType = тип привода.Тогда Исправлено
_listofDrive.Добавить(d.Name)
Конец, Если
Следующий