[RESOLVED] OpenDialog

[Dorothy]

I need help on populating a combo box with values similar to what one finds in the Look in combo of a OpenDialog?

Note: I dont wish to use the OpenDialogControl

[Bruce Fox]

Originally posted by Dorothy
I need help on populating a combo box with values similar to what one finds in the Look in combo of a OpenDialog?

Note: I dont wish to use the OpenDialogControl

Like;

Option Explicit
 
Private Sub Form_Load()
   Dim sBuff As String
 
 
   sBuff = Dir("C:*.*")
 
   Do Until sBuff = ""
      Combo1.AddItem sBuff
      sBuff = Dir
   Loop
 
End Sub

Will load a ComBoBox with all files in the Root Directory.