Мы попробуем получить серийные номера дисков. Помещаем на форму элемент управления 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

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