dir Driver !!

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
On Error GoTo Errore
ComboBox1.Items.Clear()
For I = Asc("A") To Asc("Z")
If Dir(Chr(I) & ":\", FileAttribute.Directory) <> "" Then
ComboBox1.Items.Add(Chr(I) & ":\")
End If
Next

Errore:
End Sub