Thanks John.
I actually can up with this code and it works. Seems to be longer than your however.
Code:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Make a reference to a directory.
Dim di As New DirectoryInfo("C:\Testing\Folder List\")
' Get a reference to each directory in that directory.
Dim diArr As DirectoryInfo() = di.GetDirectories()
' Populate Combobox.
Dim dri As DirectoryInfo
For Each dri In diArr
cboxClient.Items.Add(dri.Name)
Next dri
End Sub
Bookmarks