Private _FileInformationList As New List(Of FileInformation)(500)
Private _FileSystemErrors As New List(Of String)
 
Private Sub Getfiles(ByVal oDir As IO.DirectoryInfo)
   Dim oSubDir As IO.DirectoryInfo
   Dim oFile As IO.FileInfo = Nothing
 
   ' alle Dateien im aktuellen Ordner 
    Try
        For Each oFile In oDir.GetFiles()
           With oFile
              _FileInformationList.Add(New FileInformation(oFile))
              If _FileInformationList.Count Mod 100 = 0 Then
                  RaiseEvent Progress _
                  (Me, New FilesystemStuffArgs(_FileInformationList.Count))
              End If
            End With
         Next oFile
     Catch ex As Exception
         If oFile IsNot Nothing Then
            _FileSystemErrors.Add(oFile.FullName & ": " & ex.Message)
         End If
     End Try
 
     Try
        For Each oSubDir In oDir.GetDirectories()
           Getfiles(oSubDir)
        Next oSubDir
     Catch ex As Exception
        _FileSystemErrors.Add(oDir.FullName & ": " & ex.Message)
     End Try
  End Sub
 
 
  ''' <summary>Abfrage der Angaben zu den Dateien in einem Ordner</summary>
  ''' <param name="folder">Ordner, dessen Dateien gelistet werden sollen</param>
  ''' <param name="so">Unterordner einbeziehen?</param>
  Public Sub CreateFolderFileInfos(ByVal folder As String, _
        Optional so As IO.SearchOption = IO.SearchOption.TopDirectoryOnly)
 
     FileInformationArray = Nothing
     If Not IO.Directory.Exists(folder) Then Exit Sub
 
     Dim odir As New IO.DirectoryInfo(folder)
     Getfiles(odir)
     FileInformationArray = _FileInformationList.ToArray
 
     RaiseEvent Finished _
        (Me, New FilesystemStuffArgs(FileInformationArray.Length))
  End Sub
 
 
  Public ReadOnly Property ErrorMessages As String()
     Get
        Return _FileSystemErrors.ToArray
     End Get
  End Property

 Private Sub FileStuff_Finished(sender As Object, _
      e As FileSystemStuff.FilesystemStuffArgs) Handles FileStuff.Finished
 
     infotext = _
         "Dateien sind gelistet worden " & vbCrLf & "Gesamtzahl: " & _
         e.Count.ToString
 
     Dim errors() As String = FileStuff.ErrorMessages
 
     If errors IsNot Nothing AndAlso errors.Length > 0 Then
        infotext &= (vbNewLine & "Fehler: ")
        For i As Integer = 0 To errors.Length - 1
           infotext &= (vbNewLine & errors(i))
        Next i
     End If
 
     lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
     ListView1.Invoke(New MethodInvoker(AddressOf SetFileList))
 
     If FileStuff.FileInformationArray.Length > 0 Then
        With fsw
           .Filter = "*.*"
 
           .Path = IO.Path.GetDirectoryName(FileStuff.FileInformationArray( _
             0).fullpath)
           .IncludeSubdirectories = True
           .EnableRaisingEvents = True
        End With
     Else
        fsw.EnableRaisingEvents = False
     End If
 End Sub