15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




Как заполнить Combo Box буквами доступных дисков

Чтобы создать выпадающий список используемых и неиспользуемых дисков, поместите на форму два ComboBox с именами Combo1 и Combo2, и добавьте следующий код в инициализацию списков:

Private Declare Function GetLogicalDrives Lib _
"kernel32" () As Long
Private Sub Form_Load()
FillCombo Combo1, True
FillCombo Combo2, False
End Sub
Private Sub FillCombo(cbo As ComboBox, _
ByVal bUsed As Boolean)
Dim DriveNum As Long
cbo.Clear
For DriveNum = 0 To 25
If CBool(GetLogicalDrives And (2 ^ _
DriveNum)) = bUsed Then
cbo.AddItem Chr$(Asc("A") + _
DriveNum) & ":"
End If
Next DriveNum
End Sub