Private Sub Form_Load() 
  Dim lCount As Long 
  Dim i As Long
 
  ' zunächst Anzahl Ordner/Subordner ermitteln 
  lCount = VBEX_FolderCount("w:\dgf\", 0) 
  If lCount >= 0 Then
    ' Array dimensionieren 
    ReDim sFolder(lCount) As String 
 
    ' Ordnernamen ermitteln 
    lCount = VBEX_FolderList("w:\dgf\", 0, sFolder()) 
 
    For i = 0 To lCount
      Combo1.AddItem sFolder(i)
    Next i
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de