Mapper til Listbox

Hej,
Noget i stil med nedenstående:

Private Sub FillListbox(ByVal listbox As System.Windows.Forms.ListBox, ByVal rootPath As String)

  If (Not System.IO.Directory.Exists(rootPath)) Then
    Return
  End If

  Dim dirInfo As New System.IO.DirectoryInfo(rootPath)

  For Each childDirInfo As System.IO.DirectoryInfo In dirInfo.GetDirectories()
    listbox.Items.Add(childDirInfo.Name)
  Next

End Sub

Mvh.
Jens

Jeg har selv fundet noget ligende og det virker fint.