combo box with directory

Why not you just use the DirListBox?

Code:

---

Private Sub Form_Load()
Dir1.Path = "G:\Test"
End Sub

---