Private Sub GetObjects(ByVal path As String, ByVal returnMethod As _
        System.Delegate)
         Dim di As New IO.DirectoryInfo(path)
 
         For Each directory As IO.DirectoryInfo In di.GetDirectories
            GetObjects(directory.FullName, returnMethod)
 
            ' Hier die Übergabe des directory-Objektes
         Next
 
         For Each fi As IO.FileInfo In di.GetFiles
            ' Hier die Übergabe des fi-Objektes
         Next
      End Sub