Private Sub Form_Load()
  Dim i&
  Dir1.Visible = False
  Dir1.Path = "C:\NC-Files" ' dein Ordner
  File1.Visible = False
  File1.Pattern = "*.txt"
  Combo1.Clear
  For i = 0 To Dir1.ListCount - 1
    Combo1.AddItem Dir1.List(i)
  Next i
End Sub

Gruss,

Zardoz