' alle xls-Dateien in ComboBox eintragen
  Dim sFile As String
 
  With cmbExcel
    sFile = Dir$("C:\*.xls", vbNormal)
    Do While sFile <> ""
      If sFile <> "." And sFile <> ".." Then
        .RowSource = .RowSource & sFile & ";"
      End If
      sFile = Dir$
   Loop
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de