[color=000080]Private Sub [/color][color=000000]Command1_Click() [/color]
[color=000000]    pfad = "C:\Text\" [/color]
[color=000000]    x = Dir(pfad & "*.txt") [/color]
[color=000000]    Combo1.AddItem x [/color]
[color=000000]    [/color][color=000080]Do [/color]
[color=000000]        x = Dir [/color]
[color=000000]        [/color][color=000080]If [/color][color=000000]x <> "" _
  [/color][color=000080]Then [/color][color=000000]Combo1.AddItem x [/color]
[color=000000]    [/color][color=000080]Loop Until [/color][color=000000]x = "" _
[/color]
[color=000000]    Combo1.ListIndex = 0 [/color]
[color=000080]End Sub [/color]

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...