schijven in combobox

[6ib]

hey allemaal
ik heb een probleempje,
ik wil in een combobox een lijstje krijgen van alle vaste en verwisselbare schijven.
maar heb geen flauw idee hoe hieraan te beginnen.
help mij

 

[edderic]

Imports System.IO

Private Declare Auto Function GetDriveType Lib "KERNEL32" _
(ByVal lpRootPathName As String) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim drv As String
For Each drv In Directory.GetLogicalDrives()
GetDriveType(drv)
ComboBox1.Items.Add(drv)
Next drv

End Sub

Succes