Mehrere Dateien suchen und in ListBox ausgeben

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Mehrere Dateien suchen und in ListBox ausgeben

    Guten Morgen,

    ich möchte gerne mehrere bestimmte Dateien (bspw. 1.txt, 2.dat, 3.dll) auf allen Laufwerken suchen und die Pfade in eine ListBox1 eintragen.
    Wieviele Laufwerke der jeweilige Rechner hat, weiss ich vorher nicht. Lt. Google kann man das Problem anscheinend mit
    "System.Environment.GetLogicalDrives" lösen.

    Da ich absolute Anfängerin bin habe ich mit diesem Code "rumgespielt", weiss jetzt aber nicht weiter, wie ich die Laufwerke und die
    mehreren Dateien hier reinbasteln muss:

    Quellcode

    1. Dim sFile As String
    2. Dim sPath As String
    4. ' Startverzeichnis
    5. sPath = "C:\"
    7. ' alle Dateien im Startverzeichnis einschl. Unterordner
    8. ' in einer ListBox anzeigen
    9. For Each sFile In My.Computer.FileSystem.GetFiles(
    10. sPath, FileIO.SearchOption.SearchAllSubDirectories, "1.txt")
    12. ListBox1.Items.Add(sFile)
    13. Next


    Bei diesem Code kommt außerdem der Fehler "Der Zugriff auf Recycle.bin verweigert", wenn ich C:\ eintrage.
    Auf D:\ kommt der Fehler nicht. Hat das was mit Adminrechten zu tun?

    Vielen Dank und viele Grüße

    Simone

    Eierlikörchen schrieb:

    Hat das was mit Adminrechten zu tun?
    Jein.
    Gewisse Pfade darfst Du selbst als Administrator nicht "betreten".
    Wenn Du auf ein Verzeichnis zugreifst, musst Du diesen Zugriff mit Try/Catch umschließen und bei einer UnauthorizedAccessException einfach mit dem nächsten Verzeichnis weiter machen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja, und daraus folgt, dass du my.computer.filesystem.getfiles nicht verwenden kannst.
    Weil wenn das die UnAuthorisized wirft, kannste das zwar catchen, kannst aber nicht beim nächsten Verzeichnis weiter machen oder sowas.

    Also musste selbst eine rekursive Methode basteln, die die Ordner einzeln durchklappert, UnauthorizedAccessException catcht und weiter macht.
    Hier ist Ansätze dazu: Rekursive Dateisuche mit anonymer Methode
    Allerdings machen die nicht genau was du willst, aber ähnliches - musste halt Code verstehen und anpassen.
    Bei Fragen fragen - "wer nicht fragt bleibt dumm" (ist das Zitat eiglich noch bekannt?)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Hallo ihr beiden,

    vielen Dank für Eure Denkanstöße, die ich sogar als Anfängerin nachvollziehen kann *stolzguck* :)

    Ich habe heute viel getestet und gebastelt. Außerdem habe ich nochmal Google bemüht und bin auf
    einen Code gestoßen der alles vereint was ich mir vorstelle >> Perfekt!
    Zwei Sachen fehlen nur:
    1) Ich möchte den Code so ändern, dass ich mehrere Dateien suchen kann und diese in der Listbox1 zusammengefasst werden.
    Am besten ca. fünf Textboxen.
    2) Es soll auch eine Wildcard funktionieren, bspw. *.txt in der Textbox.

    An welchen Stellschrauben muss ich ansetzen?

    Vielen Dank
    Simone

    Quellcode

    1. Public Class SearchFile
    2. Inherits Object
    3. Private m_FileName As String
    4. Private m_Log As Boolean
    5. Private m_Drives() As String
    6. Private m_sw As IO.StreamWriter
    7. Private m_Abort As Boolean
    8. Public Event CurrentFile(ByVal FileName As String, ByVal IsEqual As Boolean)
    10. ' Vorgang abbrechen
    11. Public Sub Abort()
    12. Me.m_Abort = True
    13. End Sub
    15. ' Klassen-Initialisierung
    16. Public Sub New(ByVal FileName As String, ByVal Drives() As String, ByVal Log As Boolean)
    17. MyBase.New()
    18. Me.m_FileName = FileName
    19. Me.m_Log = Log
    20. Me.m_Drives = Drives
    21. End Sub
    23. ' Suchvorgang starten
    24. Public Sub Search()
    25. Try
    26. Me.m_Abort = False
    27. If Me.m_Log Then m_sw = New IO.StreamWriter("log.txt", False)
    28. For Each d As String In Me.m_Drives
    29. Me.Search(d)
    30. If Me.m_Abort Then Return
    31. Next
    32. Finally
    33. If Not m_sw Is Nothing Then
    34. m_sw.Close()
    35. End If
    36. End Try
    37. End Sub
    39. ' aktuelle Datei in LogFile speichern
    40. Private Sub Log(ByVal CurrentFile As String)
    41. If Not Me.m_Log Then Return
    42. m_sw.WriteLine(CurrentFile)
    43. End Sub
    45. ' Vergleich, ob es sich bei der aktuellen
    46. ' Datei um die gesuchte Datei handelt
    47. Private Sub IsEqual(ByVal CurrentItem As String)
    48. RaiseEvent CurrentFile(CurrentItem,
    49. Me.m_FileName.ToUpper.Equals(IO.Path.GetFileName(CurrentItem).ToUpper))
    51. End Sub
    53. ' Verzeichnis durchsuchen
    54. Private Sub SearchFile(ByVal Dir As String)
    55. For Each f As String In IO.Directory.GetFiles(Dir)
    56. Me.Log(f)
    57. Me.IsEqual(f)
    58. If Me.m_Abort Then Return
    59. Next
    61. End Sub
    63. ' alle Verzeichnisse ermitteln und Suchvorgang ausführen
    64. Private Sub Search(ByVal Dir As String)
    65. Try
    66. SearchFile(Dir)
    67. For Each d As String In IO.Directory.GetDirectories(Dir)
    68. Try
    69. If Me.m_Abort Then Return
    70. Search(d)
    71. Catch ex As Exception
    72. Debug.WriteLine(ex.Message)
    73. End Try
    74. Next
    75. Catch ex As Exception
    76. Debug.WriteLine(ex.Message)
    77. End Try
    78. End Sub
    79. End Class
    81. ' Inherits System.Windows.Forms.Form
    83. Dim f As SearchFile
    85. Private Sub Button1_Click(ByVal sender As System.Object,
    86. ByVal e As System.EventArgs) Handles Button1.Click
    88. ' alle logischen LW nach der Datei durchsuchebn,
    89. ' die in der TextBox eingegeben wurde
    90. f = New SearchFile(TextBox1.Text, System.Environment.GetLogicalDrives, True)
    92. AddHandler f.CurrentFile, AddressOf CurrentFile
    94. f.Search()
    96. End Sub
    98. Private Sub CurrentFile(ByVal FileName As String, ByVal IsEqual As Boolean)
    99. ' Pfad extrahieren und im Label-Control anzeigen
    100. Dim sPath As String = IO.Path.GetDirectoryName(FileName)
    101. If Label1.Text <> sPath Then
    102. Label1.Text = sPath
    103. Application.DoEvents()
    104. End If
    106. ' Treffer der ListBox hinzufügen
    107. If IsEqual Then
    108. Me.ListBox1.Items.Add("Found: " + FileName)
    109. Application.DoEvents()
    110. ' Falls nach dem 1. Treffer der Vorgang abgebrochen
    111. ' werden soll, einfach die Abort-Methode aufrufen
    112. ' f.Abort()
    113. End If
    114. End Sub
    116. Private Sub Button2_Click(ByVal sender As System.Object,
    117. ByVal e As System.EventArgs) Handles Button2.Click
    119. ' Bei Klick auf den 2. Button, Vorgang abbrechen
    120. f.Abort()
    122. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Eierlikörchen“ ()

    Eierlikörchen schrieb:

    An welchen Stellschrauben muss ich ansetzen?
    Im Form empfängst du ja das CurrentFile-Event.
    Das gibt dir das CurrentFile-Argument - da musst du schauen, ob es deinen Suchbedingungen entspricht oder nicht.
    Das Event liefert dir ausserdem ein IsEqual-Argument - das kannste vergessen - das macht für deine Belange keine sinnvolle Angabe.

    Deine Suchbedingungen sind nicht klar definiert. Du willst nach mehreren Files suchen, aber gleichzeitig auch auf mehrere File-Extensions filtern?
    wie stellst du dir das vor?

    Eierlikörchen schrieb:

    dass ich mehrere Dateien suchen kann
    Das geht nur, indem Du nacheinander jede Deiner Extensions durchklickerst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich habe jetzt fünf Textboxen platziert und lasse sie nacheinander durchlaufen.
    Funktioniert super!! :) Danke.

    Jetzt wäre es noch super, wenn ich in den Textboxen sehr flexibel bin.

    Also Test.txt oder *.txt oder *Test*.* sollen in der Listbox1 aufgelistet werden.
    Wo genau muss ich die Wildcard platzieren?

    Lieben Dank euch beiden

    Eierlikörchen schrieb:

    Wo genau muss ich die Wildcard platzieren?
    Spekulatius: Zeile 37 Spalte 18.
    Ansonsten poste mal Deinen Code.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook