Why not you just use the DirListBox?

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