Dim nCount As Long
Dim sFiles() As String
Dim nBytes As Currency
Dim sPath As String
Dim sFilter As String
DIm I As Long
Dim Index As Integer
Dim U As Long
 
sPath = "c:	emp"
sFilter = "*.*"
 
nCount = VBEX_FileCount(sPath, 0, sFilter, nBytes)
If nCount >= 0 Then
  ReDim sFiles(nCount)
  nCount = VBEX_FileList(sPath, 0, sFilter, sFiles(), nBytes)
 
  Index = 0: U = 0
  For i = 0 To nCount
    U = U + 1
    If U  > 32767 Then
      Index = Index + 1
      Load List1(Index)
      With List1(Index)
        .Move Left, Top
        .Visible = True
        .Clear
      End With
      U = 1
    End If
 
    List1(Index).AddItem sFiles(I)
  Next I
End If