Private Sub Form_Load()
    Dim AnzahlWmf as Integer
    AnzahlWmf  = CountFiles("C:\Temp\", ".wmf") 'Für alle Dateien: CountFiles( 
    ' "*.*")
 
    For i = 0 To AnzahlWmf
    ....
End Sub
 
Function CountFiles(Pfad As String, DateiTyp As String) As Integer
 
   On Error GoTo ErrHandler
 
   Dim Counter As Integer
   Dim TempName As String
 
   CountFiles = 1
 
   TempName = Dir(Pfad & "*.*")
 
   While Not Err
      If DateiTyp <> "*.*" Then
        If Right$(TempName, 4) = DateiTyp Then
          Counter = Counter + 1
        End If
      Else
        Counter = Counter + 1
      End If
      TempName = Dir()
   Wend
 
ErrHandler:
 
    CountFiles = Counter
End Function