Исходники
Статьи
Языки программирования
.NET Delphi Visual C++ Borland C++ Builder C/С++ и C# Базы Данных MySQL MSSQL Oracle PostgreSQL Interbase VisualFoxPro Веб-Мастеру PHP HTML Perl Java JavaScript Протоколы AJAX Технология Ajax Освоение Ajax Сети Беспроводные сети Локальные сети Сети хранения данных TCP/IP xDSL ATM Операционные системы Windows Linux Wap Книги и учебники
Скрипты
Магазин программиста
|
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 Обратите внимание на обработку ошибок. Это связано с тем, что мы перебираем все диски в том числе и дисководы в котором может отсутствовать дискета. Запускаем смотрим.
|
Форум Программиста
Новости Обзоры Магазин Программиста Каталог ссылок Поиск Добавить файл Обратная связь Рейтинги
|