Hab für mein CD/DVD-Archiv diesen ablauf gewählt.
In e.Argument steckt "C:\" oder wie auch immer.
 
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
        'Zähler, wird intern zur Ausgabe des Fortschritts in % benötigt.
        Dim IntCnt As Long = 0
 
        'Alle Ordner und Unterordner ermitteln
        Dim Directorys As ReadOnlyCollection(Of String)
        Directorys = My.Computer.FileSystem.GetDirectories(e.Argument, _
          FileIO.SearchOption.SearchAllSubDirectories, "*.*")
 
        'Alle Dateien im Root-Verzeichniss von e.Argument ermitteln, kann auch 
        ' mit *.jpg auf z.B. nur JPG´s eingeschränkt werden        
        Dim filesInRoot As ReadOnlyCollection(Of String)
        filesInRoot = My.Computer.FileSystem.GetFiles(e.Argument, _
          FileIO.SearchOption.SearchTopLevelOnly, "*.*")
 
        'Einzelne Dateine in den Ordnern ermitteln und bei jedem neuen Ordner 
        ' den Fortschritt ausgeben, hier kann ebenfalls *.* mit z.B. *.jpg 
        ' ersetzt werden
        For Each Directory As String In Directorys
            IntCnt += 1
            Dim files As ReadOnlyCollection(Of String)
            files = My.Computer.FileSystem.GetFiles(Directory, _
              FileIO.SearchOption.SearchTopLevelOnly, "*.*")
            BackgroundWorker1.ReportProgress(100 / Directorys.Count * IntCnt, _
            files)
        Next
 
End Sub

Danke, an ALLE !!