Rekursiv alle Dateien eines Ordners inkl. Unterordner erfassen

X-Zat · 13. März 2011, 03:22

Hallo Community!

Wenn es darum geht, Dateien in einem Ordner und dessen Unterordner zu erfassen, kann man sich mit eingeschränkten For-Schleifen oder mit rekuriven Funktionen auseinandersetzen.
Ich stelle euch hier eine Funktion vor, die euch alle Dateien als ListViewItems zurückgibt, mit Info. (Warum ListViewItems? Nun, das stammt aus einem meiner kleinen Projekte, außerdem kann man sehr leicht mit ListViewItems umgehen.)

Hier der Source-Code:

VB.NET-Quellcode

'Parameter: pFolder als Pfad des zu durchsuchenden Ordners, pSuffix als Endung der zu suchenden Dateien (bei allen Typen "*.*")
Public Function GetFiles(ByVal pFolder As String, ByVal pSuffix As String) As List(Of ListViewItem) 'Gibt eine Auflistung von ListViewItems zurück
'Eine temporäre Liste wird angelegt
Dim TempLVI As New List(Of ListViewItem)
'Für jede Datei des Typs pSuffix im Ordner pFolder...
For Each FILE As String In System.IO.Directory.GetFiles(pFolder, "*." & pSuffix, IO.SearchOption.TopDirectoryOnly)
'Erstelle neues ListViewItem und weise ihm Beizeichnung und Informationen in den Subitems zu
Dim LVI As New ListViewItem
LVI.Text = New System.IO.FileInfo(FILE).Name 'Dateiname
With LVI
.SubItems.Add(New System.IO.FileInfo(FILE).Directory.FullName) 'Ordner der Datei
.SubItems.Add(Math.Round(New System.IO.FileInfo(FILE).Length / 1000, 2) & " KB") 'Größe der Datei (hier in KB, bis auf zwei Dezimalstellen gerundet
'Natürlich können hier noch Subitems hinzugefügt werden...
End With
'Füge das ListViewItem der Liste hinzu
TempLVI.Add(LVI)
Next
'Für jeden Unterordner FOLDER des Ordners pFolder
For Each FOLDER As String In System.IO.Directory.GetDirectories(pFolder)
'Für jedes ListViewItem LVI der zurückgegebenen Liste der rekursiv aufgerufenen Funktion
For Each LVI As ListViewItem In GetFiles(FOLDER)
'Füge der temporären Liste die Ergebnisse des rekursiven Aufrufes hinzu
TempLVI.Add(LVI)
Next
Next
'Gebe die komplette Liste zurück
Return TempLVI
End Function
'Beispiel für ein eigenes Programm:
For Each LVI As ListViewItem In GetFiles("C:\","*")
ListView1.Items.Add(LVI)
Next

Kleiner Exkurs "Was ist eine rekursive Funktion?"
Im Grunde ist eine rekursive Funktion eine Funktion, die sich bei Bedarf selbst wieder ausführt. Diese Methode der Entwicklung kann auch in anderen Programmiersprachen, zum Beispiel Java, verwendet werden - Bei geschickter Programmierung kann man so sehr leicht mit vergleichsweise wenig Code viel erreichen. Außerdem ist sie nicht nur auf Funktionen (Routinen mit Rückgabewert) beschränkt - Jede Methode (Sub) kann das ebenso gut. Es hängt nur vom Einsatzbereich der Methode/Funktion und deren Anforderungen ab.

MfG,
X-Zat / Momo

ErfinderDesRades · 6. Mai 2011, 00:14

Hi!

Du müsstest die UnauthorisizedExceptions noch abfangen, denkich

sL!zoNe · 7. Mai 2011, 11:17

Das kann doch dann jeder für sich machen. Das ist ja nur ein Beispiel wie man alles rekursiv durchforstet.

tamaleus · 26. Juli 2011, 00:15

Als Anfänger schliesse ich mich der Anmerkung von ErfinderDesRades an; leider weiss ich nicht, wie ich diesen Punkt lösen kann.

Ferner habe ich noch ein anderes Problem:

In der Zeile

For Each LVI As ListViewItem In GetFiles(FOLDER, )

wird mir das Fehlen des zweiten Parameters reklamiert. Trotz einigem rumtüffteln habe ich leider nicht selber rausfinden können, was ich hier allenfalls noch ändern muss, damit diese feine Funktion auch bei mir tut.

Und ausserdem wäre ich grad auch noch dankbar für etwas Schützenhilfe bei der Frage, warum ich bei mir z.B. die Spalte mit den Grössen nicht sehe. Was muss ich da allenfalls noch ändern oder ergänzen.

In der Hoffnung, nichts übersehen und gegen keine Regeln verstossen zu haben, warte ich gespannt auf Hilfe und danke im Voraus bestens.

ErfinderDesRades · 26. Juli 2011, 01:26

gugge RecursiveFileSearch

Nazas · 26. September 2011, 22:42

Habe das selbe problem wie tamaleus aber konnte dem Post von ErfinderDesRades leider keine lösung entnehmen.

ErfinderDesRades · 26. September 2011, 23:03

konnte dem Post von ErfinderDesRades leider keine lösung entnehmen.

Komisch.
Dort liegt doch eine Sample-Solution bei, die keines der erwähnten Probleme hat.

singu · 26. September 2011, 23:13

In dem man den Teil in ein Try-Catch Block packt, dann kommt bei Catch die Fehlermeldung raus.

Krschy · 30. Oktober 2011, 15:26

Lol. Du machst es etwas umständlich.

VB.NET-Quellcode

' Über dem Sub DAS:
Dim Rdm As New Random
'Im Mainsub:
Dim FilesCount As Integer
Console.WriteLine("Bereite auf Kopie vor...")
System.Threading.Thread.Sleep(Rdm.Next(500, 2000))
Dim Files() As String = IO.Directory.GetFiles("C:\Windows\System32\")
For i As Integer = 0 To UBound(Files)
Console.WriteLine("Lade: [" & i & "] " & Files(i).Replace("C:\Windows\System32\", "").Replace(".exe", ".dll"))
System.Threading.Thread.Sleep(Rdm.Next(1, 20))
FilesCount = i
Next
Console.WriteLine("Laden Abgeschlossen... [" & FilesCount & " Dateien geladen]")
System.Threading.Thread.Sleep(Rdm.Next(400, 1252))
Console.WriteLine("Drücke eine Beliebige Taste um das Programm zu beenden...")
Console.Read()

Beispiel mit einer Konsolenanwendung.

CODE GETESTET UND FUNKTIONIERT; Für alle C&P´er :D

Und wenn man Fehler vorbeugen will, dies tun:

VB.NET-Quellcode

Imports System
Imports System.Text
Imports System.IO
Imports System.Threading
Module Module1
Dim Rdm As New Random
Sub Main()
Dim FilesCount As Integer
Console.WriteLine("Bereite auf Kopie vor...")
System.Threading.Thread.Sleep(Rdm.Next(500, 2000))
Dim Files() As String = IO.Directory.GetFiles("C:\Windows\System32\")
Try
For i As Integer = 0 To UBound(Files)
Console.WriteLine("Lade: [" & i & "] " & Files(i).Replace("C:\Windows\System32\", "").Replace(".exe", ".dll"))
System.Threading.Thread.Sleep(Rdm.Next(1, 20))
FilesCount = i
Next
Catch ex As Exception
Console.WriteLine("Ein Fehler ist aufgetreten")
Console.WriteLine(ex.ToString)
Threading.Thread.Sleep(2000)
End Try
Console.WriteLine("Laden Abgeschlossen... [" & FilesCount & " Dateien geladen]")
System.Threading.Thread.Sleep(Rdm.Next(400, 1252))
Console.WriteLine("Drücke eine Beliebige Taste um das Programm zu beenden...")
Console.Read()
End Sub
End Module

Und ein kleines Update mit etwas Farbe

VB.NET-Quellcode

Imports System
Imports System.Text
Imports System.IO
Imports System.Threading
Module Module1
Dim Rdm As New Random
Sub Main()
Console.BackgroundColor = ConsoleColor.Black
Console.Title = "Konsolenanwendung im Testvorgang... Bereite auf Laden vor.."
Console.Beep()
Dim FilesCount As Integer
Console.WriteLine("Bereite auf Kopie vor...")
System.Threading.Thread.Sleep(Rdm.Next(500, 2000))
Dim Files() As String = IO.Directory.GetFiles("C:\Windows\System32\")
Try
For i As Integer = 0 To UBound(Files)
Console.ForegroundColor = ConsoleColor.Green
Console.Write("Lade: [" & i & "] ")
Console.ForegroundColor = ConsoleColor.DarkGreen
Console.WriteLine(Files(i).Replace("C:\Windows\System32\", "").Replace(".exe", ".dll"))
System.Threading.Thread.Sleep(Rdm.Next(1, 20))
FilesCount = i
Console.Title = "Geladene Dateien: [" & i & "] Lade: " & Files(i).Replace("C:\Windows\System32\", "").Replace(".exe", ".dll")
Next
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("Ein Fehler ist aufgetreten")
Console.WriteLine(ex.ToString)
Console.ForegroundColor = ConsoleColor.White
Threading.Thread.Sleep(2000)
End Try
Console.ForegroundColor = ConsoleColor.Green
Console.Write("Laden Abgeschlossen... ")
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("[" & FilesCount & " Dateien geladen]")
System.Threading.Thread.Sleep(Rdm.Next(400, 1252))
Console.ForegroundColor = ConsoleColor.DarkMagenta
Console.WriteLine("Drücke eine Beliebige Taste um das Programm zu beenden...")
Console.Read()
End Sub
End Module

Rekursiv alle Dateien eines Ordners inkl. Unterordner erfassen

Rekursiv alle Dateien eines Ordners inkl. Unterordner erfassen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben