Dim VBEx As New axVBEx32.VBEx32
 
Dim lCount As Long
Dim sFileToLookFor As String
ReDim sFiles(1000) As String
 
lCount = VBEx.Files.List("c:", sFiles(), True, sFileToLookFor)
If lCount >= 0 Then
  MsgBox CStr(lCount + 1) & " mal gefunden!"
End If

Public Declare Function VBEX_FileList Lib "vbex32.dll" _
  Alias "VBFILELIST" ( _
  ByVal sPath As String, _
  nSubFolder As Integer, _
  ByVal sFilter As String, _
  sFiles() As String, _
  nBytes As Currency) As Long

Dim lCount As Long
Dim sFileToLookFor As String
Dim nBytes As Currency
ReDim sFiles(1000) As String
 
sFileToLookFor = "vbex32.dll"
lCount = VBEX_FileList("c:", 1, sFileToLookFor, sFiles(), nBytes)
If lCount >= 0 Then
  MsgBox CStr(lCount + 1) & " mal gefunden."
End If