Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Dec 21, 2001

Fill a Combo with Available Drive Letters


To create a drop-down control with a list of used or unused drive letters, place two ComboBox controls on a form, named Combo1 and Combo2, and include this code to initialize the lists:
 
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
Brian Dial
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date