Hallo,
ich blende mich mal in eure Diskussion ein.
Das Problem einer rekursiven Dateisuche ist, das man nicht immer auf alle Verzeichnisse Zugriff hat. Auf das "System Volume Information" Verzeichnis, das die Wiederherstellungsinformationen des Betriebssystems enthält, hat unter normalen Umständen
nicht einmal ein Administrator Zugriff.
Weder My.Computer.FileSystem.GetFiles - das sowieso überflüssiger als ein Kropf ist - noch System.IO.Directory.GetFiles fangen das ab, sondern reichen die UnAuthorizedAccessException weiter. Mit dem Endresultat, dass man kein Ergebnis bekommt.
In der MS KB gibt es einen Artikel SO WIRD'S GEMACHT: Rekursives Durchsuchen von Verzeichnissen in Visual Basic .NET, der eine alternative Lösung zeigt, aber IMHO es zuweit mit dem Schlucken von
Ausnahmen treibt.
Eine alternative Variante, die nach mehreren Dateimustern suchen kann, das Ergebnis am Ende sortiert und die Rekursion durch einen Stack ersetzt:
Public Class FileHelper
''' <summary>
''' Erstellt eine Dateiliste rekursiv.
''' </summary>
''' <remarks>
''' Es kann nach mehreren Mustern gesucht werden, die durch ";" getrennt werden.
''' Dateien und Verzeichnisse auf die kein Zugriff besteht werden ausgelassen.
''' </remarks>
''' <param name="path">Der Ausgangspfad.</param>
''' <param name="searchPatterns">Eine Liste von Suchmustern</param>
''' <returns>eine List<String></returns>
Public Shared Function FindFilesRecursive( _
ByVal path As String, _
ByVal searchPatterns As String) As List(Of String)
If path Is Nothing Then
Throw New ArgumentNullException("path")
End If
path = path.Trim()
If path.Length = 0 Then
Throw New ArgumentException("path")
End If
If String.IsNullOrEmpty(searchPatterns) Then
Throw New ArgumentNullException("searchPatterns")
End If
' Anfangspfad vorgeben (hier mögliche Ausnahme)
path = System.IO.Path.GetFullPath(path)
Dim fileList As New List(Of String)
' Trennen der Suchmuster
Dim searchPatternList As New List(Of String)
For Each pattern As String In searchPatterns.Split(";"c)
pattern = pattern.Trim()
If pattern.Length > 0 Then
searchPatternList.Add(pattern)
End If
Next
If searchPatternList.Count = 0 Then
Return fileList
End If
Dim directoryStack As New Stack(Of String)
directoryStack.Push(path)
' Verzeichnisse rekursiv (via Stack) durchlaufen
Do While directoryStack.Count > 0
Dim directory As String = directoryStack.Pop()
Try
' Durchlaufen aller Suchmuster
For Each pattern As String In searchPatternList
' ... und zur Dateiliste hinzufügen
fileList.AddRange(System.IO.Directory.GetFiles(directory, pattern))
Next
Catch ex As UnauthorizedAccessException
System.Diagnostics.Debug.WriteLine("No File Access " & directory)
' Kein Zugriff
End Try
' Einfügen der Unterverzeichnisse in den Stack
Try
For Each subDirectory As String In System.IO.Directory.GetDirectories(directory)
directoryStack.Push(subDirectory)
Next
Catch ex As UnauthorizedAccessException
' Kein Zugriff
System.Diagnostics.Debug.WriteLine("No Directory Access " & directory)
End Try
Loop
' Sortiert die Dateinamen
fileList.Sort(StringComparer.OrdinalIgnoreCase)
Return fileList
End Function
''' <summary>
''' Kleiner Test zu FindFilesRecursive
''' </summary>
<Conditional("Debug")> _
Friend Shared Sub FindFileRecursiveTest()
Dim path As String = "E:"
'Dim searchPatterns As String = "*.wav"
Dim searchPatterns As String = "*.mp3;*.wav;*.wmv;*.wma"
Dim fileList As List(Of String) = FileHelper.FindFilesRecursive(path, searchPatterns)
Dim builder As New System.Text.StringBuilder(128)
For Each name As String In fileList
builder.AppendLine(name)
Next
System.IO.File.WriteAllText("F:\fileslist.txt", builder.ToString())
End Sub
End Class
Gruß Elmar
