Исходники.Ру - Программирование
Исходники
Статьи
Книги и учебники
Скрипты
Новости RSS
Магазин программиста

Ishodniki.Ru » Online книги » Visual Basic по шагам

Шаг 111 - Используем FSO

Мы попробуем получить серийные номера дисков. Помещаем на форму элемент управления List и пишем код.

Private Sub Form_Load()

On Error Resume Next

Dim fs As New FileSystemObject

Set dc = fs.Drives

For Each d In dc

    List1.AddItem (d.SerialNumber)

Next

End Sub

Обратите внимание на обработку ошибок. Это связано с тем, что мы перебираем все диски в том числе и дисководы в котором может отсутствовать дискета. Запускаем смотрим.

gif/111_1.gif (1785 b)

 

Предыдущий шаг | Оглавление | Следующий шаг

Рассылка новостей
Рейтинги
© 2007, Программирование Исходники.Ру