Dim Aktiv As Boolean
Dim countDateien As Long
 
Public Function Aus(zForm As Form)
Aktiv = False
Aus = countDateien
End Function
 
 
 
 
 
 
Public Sub Ein(strPfad As String, outList As ListBox, outLabel As Label, _
  outNumber As Label)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strPfad) = False Then Exit Sub
 
Aktiv = True
countDateien = 0
outNumber = 0
 
Suchen strPfad, outList, outLabel, outNumber
End Sub
 
 
 
 
 
Private Sub Suchen(strPfad As String, outList As ListBox, outLabel As Label, _
  outNumber As Label)
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
 
If fs.FolderExists(strPfad) = False Then Exit Sub
Set FolderObject = fs.GetFolder(strPfad)
 
outLabel.Caption = Pfad.PfadKürzen(strPfad, 70)
DoEvents
 
For Each Datei In FolderObject.Files
If Aktiv = False Then Exit Sub
    'hier müsste dan noch eine bedingung rein:
    'outList.AddItem Datei.Path
countDateien = countDateien + 1
'...ende der bedingung
outNumber = outNumber + 1
Next
 
For Each strUnterOrdner In FolderObject.SubFolders
If Aktiv = False Then Exit Sub
Suchen strUnterOrdner.Path, outList, outLabel, outNumber
Next
 
End Sub
 
'Dieser Sub solte dann (sobald alle Ordner durchgangen wurden) aufgerufen 
' werden (Call)
Private Sub Suchlauf_Fertig ()
[................]
End Sub