Laufwerk(e) nach Dateien durchsuchen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Stefanxx3.

    Laufwerk(e) nach Dateien durchsuchen

    Heya,
    schon wieder ich :D

    Da ich mich vor kurzem mit ner Art "Scannern" beschäftige(recht neu im Gebiet :P ) kenne ich mich nicht wirklich gut aus.

    Ich will jetzt in einem bestimmten Laufwerk mehrere Dateien durchsuchen und nicht nur eine.

    Ich habe aus dem vb-archiv eine Klasse gefunden, die nach einer Datei sucht aber nicht nach mehreren.

    Habe deshalb versucht die Datei-Namen in einem Array zu speichern jedoch ohne erfolg(oder ich habe iwo verkackt)

    Hier mal die sources:
    Form1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    3. Public Class Form1
    5. Inherits System.Windows.Forms.Form
    7. Dim f As SearchFile
    9. Private Sub Button1_Click(ByVal sender As System.Object, _
    10. ByVal e As System.EventArgs) Handles Button1.Click
    11. suchen()
    12. End Sub
    14. Private Sub suchen()
    16. Me.ListBox1.Items.Clear()
    18. Dim x As String = "profile.txt"
    19. ' Als Array war es so (enstprechend in der Module dann auch geändert)
    20. ' Dim x(1) As String
    21. ' x(0) = "profile.txt"
    22. ' x(1) = "version.ini"
    24. f = New SearchFile(x, "D:\", False)
    25. AddHandler f.CurrentFile, AddressOf CurrentFile
    26. f.Search()
    27. End Sub
    29. Private Sub CurrentFile(ByVal FileName As String, ByVal IsEqual As Boolean)
    31. Dim sPath As String = IO.Path.GetDirectoryName(FileName)
    32. If Label1.Text <> sPath Then
    33. Label1.Text = sPath
    34. Application.DoEvents()
    35. End If
    38. If IsEqual Then
    39. Me.ListBox1.Items.Add("Found: " + FileName)
    41. Application.DoEvents()
    44. End If
    45. End Sub
    47. Private Sub Button2_Click(ByVal sender As System.Object, _
    48. ByVal e As System.EventArgs) Handles Button2.Click
    50. f.Abort()
    51. End Sub
    52. End Class


    Module1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Threading
    3. Imports System.Environment
    4. Imports System.Runtime
    5. Imports System.Runtime.InteropServices
    6. Imports System.ComponentModel
    9. Module Module1
    11. Public Class SearchFile
    12. Inherits Object
    13. Private m_FileName As String
    14. Private m_Log As Boolean
    15. Private m_Drives As String
    16. Private m_sw As IO.StreamWriter
    17. Private m_Abort As Boolean
    18. Public Event CurrentFile(ByVal FileName As String, ByVal IsEqual As Boolean)
    20. ' Vorgang abbrechen
    21. Public Sub Abort()
    22. Me.m_Abort = True
    23. End Sub
    25. ' Klassen-Initialisierung
    26. Public Sub New(ByVal FileName As String, ByVal Drives As String, ByVal Log As Boolean)
    27. MyBase.New()
    28. Me.m_FileName = FileName
    29. Me.m_Log = Log
    30. Me.m_Drives = Drives
    31. End Sub
    33. ' Suchvorgang starten
    34. Public Sub Search()
    35. Try
    36. Me.m_Abort = False
    37. If Me.m_Log Then m_sw = New IO.StreamWriter("log.txt", False)
    38. For Each d As String In Me.m_Drives
    39. Me.Search(d)
    40. If Me.m_Abort Then Return
    41. Next
    42. Finally
    43. If Not m_sw Is Nothing Then
    44. m_sw.Close()
    45. End If
    46. End Try
    47. End Sub
    49. ' aktuelle Datei in LogFile speichern
    50. Private Sub Log(ByVal CurrentFile As String)
    51. If Not Me.m_Log Then Return
    52. m_sw.WriteLine(CurrentFile)
    53. End Sub
    55. ' Vergleich, ob es sich bei der aktuellen
    56. ' Datei um die gesuchte Datei handelt
    57. Private Sub IsEqual(ByVal CurrentItem As String)
    58. RaiseEvent CurrentFile(CurrentItem, _
    59. Me.m_FileName.ToUpper.Equals(IO.Path.GetFileName(CurrentItem).ToUpper))
    60. End Sub
    62. ' Verzeichnis durchsuchen
    63. Private Sub SearchFile(ByVal Dir As String)
    64. For Each f As String In IO.Directory.GetFiles(Dir)
    65. Me.Log(f)
    66. Me.IsEqual(f)
    67. If Me.m_Abort Then Return
    68. Next
    69. End Sub
    71. ' alle Verzeichnisse ermitteln und Suchvorgang ausführen
    72. Private Sub Search(ByVal Dir As String)
    73. Try
    74. SearchFile(Dir)
    75. For Each d As String In IO.Directory.GetDirectories(Dir)
    76. Try
    77. If Me.m_Abort Then Return
    78. Search(d)
    79. Catch ex As Exception
    80. Debug.WriteLine(ex.Message)
    81. End Try
    82. Next
    83. Catch ex As Exception
    84. Debug.WriteLine(ex.Message)
    85. End Try
    86. End Sub
    87. End Class
    90. End Module


    Danke in vorraus und hoffe um Hilfe ! :)
    Grüße

    Was ist denn nun Dein Problem?
    Sollen wir für Dich den Grotten-Code zurechtbiegen oder was?
    Wenn Du Code gefunden hast, der eine Datei sucht, Du aber mehrere Dateien suchen willst, solltest Du den Code halt meehrmals aufrufen, mit immer einer anderen Datei.
    Wie sieht denn Dein Filenamen-Array aus?
    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!

    RodFromGermany schrieb:

    Wenn Du Code gefunden hast, der eine Datei sucht, Du aber mehrere Dateien suchen willst, solltest Du den Code halt meehrmals aufrufen, mit immer einer anderen Datei.
    Geht zwar aber er durchsucht doppelt bzw. mehrfach und nicht mit einer Durchsuchung mehrere Dateien.

    Wie sieht denn Dein Filenamen-Array aus?
    Steht ausdokumentiert im geposteten Code.

    Stefanxx3 schrieb:

    Steht ausdokumentiert im geposteten Code.
    Fein. Du greifst aber nicht drauf zu.
    Was sagt Dein Code zu Option Strict On?
    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!

    1. Ich vermisse das WithEvents bei

    VB.NET-Quellcode

    1. Dim f As SearchFile

    2. Wie äußert sich

    Stefanxx3 schrieb:

    Er ignoriert einfach die 2 Dateien, wenn ich diese suche
    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!

    zu 2. Naja, wie soll ich das am besten sagen.. Der Scanner findet die 2 Dateien die sich im Ordner befinden nicht. Sprich wenn der Scanner grad bei D:\Test\ ist(in meinem fall), findet/gibt er mir die 2 Dateien nicht aus, obwohl sie sich in diesem Ordner befinden..

    Hier mal der aktuelle Code:

    Form1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    3. Public Class Form1
    5. Inherits System.Windows.Forms.Form
    7. Dim WithEvents f As SearchFile
    9. Private Sub Button1_Click(ByVal sender As System.Object, _
    10. ByVal e As System.EventArgs) Handles Button1.Click
    12. Dim t As New Threading.Thread(AddressOf suchen)
    13. t.Start()
    14. End Sub
    16. Private Sub suchen()
    18. Me.ListBox1.Items.Clear()
    21. Dim x(1) As String
    22. x(0) = "profile.txt"
    23. x(1) = "version.ini"
    25. f = New SearchFile(x, System.Environment.GetLogicalDrives, True)
    26. AddHandler f.CurrentFile, AddressOf CurrentFile
    27. f.Search()
    28. End Sub
    30. Private Sub CurrentFile(ByVal FileName As String, ByVal IsEqual As Boolean)
    32. Dim sPath As String = IO.Path.GetDirectoryName(FileName)
    33. If Label1.Text <> sPath Then
    34. Label1.Text = sPath
    35. Application.DoEvents()
    36. End If
    39. If IsEqual Then
    40. Me.ListBox1.Items.Add("Found: " + FileName)
    42. Application.DoEvents()
    45. End If
    46. End Sub
    48. Private Sub Button2_Click(ByVal sender As System.Object, _
    49. ByVal e As System.EventArgs) Handles Button2.Click
    51. f.Abort()
    52. End Sub
    54. Private Sub Form1_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
    55. Try
    56. IO.File.Delete("./log.txt")
    57. Catch ex As Exception
    58. MsgBox(ex.Message)
    59. End Try
    60. End Sub
    62. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    63. Me.ListBox1.CheckForIllegalCrossThreadCalls = False
    64. End Sub
    65. End Class


    Module1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Threading
    3. Imports System.Environment
    4. Imports System.Runtime
    5. Imports System.Runtime.InteropServices
    6. Imports System.ComponentModel
    9. Module Module1
    11. Public Class SearchFile
    12. Inherits Object
    13. Private m_FileName() As String
    14. Private m_Log As Boolean
    15. Private m_Drives() As String
    16. Private m_sw As IO.StreamWriter
    17. Private m_Abort As Boolean
    18. Public Event CurrentFile(ByVal FileName As String, ByVal IsEqual As Boolean)
    20. ' Vorgang abbrechen
    21. Public Sub Abort()
    22. Me.m_Abort = True
    23. End Sub
    25. ' Klassen-Initialisierung
    26. Public Sub New(ByVal FileName() As String, ByVal Drives() As String, ByVal Log As Boolean)
    27. MyBase.New()
    28. Me.m_FileName = FileName
    29. Me.m_Log = Log
    30. Me.m_Drives = Drives
    31. End Sub
    33. ' Suchvorgang starten
    34. Public Sub Search()
    35. Try
    36. Me.m_Abort = False
    37. If Me.m_Log Then m_sw = New IO.StreamWriter("log.txt", False)
    38. For Each d As String In Me.m_Drives
    39. Me.Search(d)
    40. If Me.m_Abort Then Return
    41. Next
    42. Finally
    43. If Not m_sw Is Nothing Then
    44. m_sw.Close()
    45. End If
    46. End Try
    47. End Sub
    49. ' aktuelle Datei in LogFile speichern
    50. Private Sub Log(ByVal CurrentFile As String)
    51. If Not Me.m_Log Then Return
    52. m_sw.WriteLine(CurrentFile)
    53. End Sub
    55. ' Vergleich, ob es sich bei der aktuellen
    56. ' Datei um die gesuchte Datei handelt
    57. Private Sub IsEqual(ByVal CurrentItem As String)
    58. RaiseEvent CurrentFile(CurrentItem, _
    59. CStr(UBound(Me.m_FileName)).ToUpper.Equals(IO.Path.GetFileName(CurrentItem).ToUpper))
    60. End Sub
    62. ' Verzeichnis durchsuchen
    63. Private Sub SearchFile(ByVal Dir As String)
    64. For Each f As String In IO.Directory.GetFiles(Dir)
    65. Me.Log(f)
    66. Me.IsEqual(f)
    67. If Me.m_Abort Then Return
    68. Next
    69. End Sub
    71. ' alle Verzeichnisse ermitteln und Suchvorgang ausführen
    72. Private Sub Search(ByVal Dir As String)
    73. Try
    74. SearchFile(Dir)
    75. For Each d As String In IO.Directory.GetDirectories(Dir)
    76. Try
    77. If Me.m_Abort Then Return
    78. Search(d)
    79. Catch ex As Exception
    80. Debug.WriteLine(ex.Message)
    81. End Try
    82. Next
    83. Catch ex As Exception
    84. Debug.WriteLine(ex.Message)
    85. End Try
    86. End Sub
    87. End Class
    90. End Module



    Edit: Ka wieso [vb] [./vb] keine gescheiten Absätze macht, ich hoffe man erkennt es trotzdem

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

    VB.NET-Quellcode

    1. Private Sub IsEqual(ByVal CurrentItem As String)
    2. RaiseEvent CurrentFile(CurrentItem, _
    3. CStr(UBound(Me.m_FileName)).ToUpper.Equals(IO.Path.GetFileName(CurrentItem).ToUpper))
    4. End Sub
    Dieser Befehl macht nicht das, was Du glaubst, was er tun soll:

    VB.NET-Quellcode

    1. CStr(UBound(Me.m_FileName)).ToUpper.Equals(IO.Path.GetFileName(CurrentItem).ToUpper)
    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!

    Mhm.

    Müsste also dann das FileName durchgehen, und dann das einzelne vergleichen oder ?

    Edit: Habs gelöst!

    VB.NET-Quellcode

    1. For Each file As String In Me.m_FileName
    2. RaiseEvent CurrentFile(CurrentItem, _
    3. file.ToUpper.Equals(IO.Path.GetFileName(CurrentItem).ToUpper))
    4. Next

    So isses. :thumbsup:
    Pack mal das ToUpper dahin, wo die Strings generiert bzw. gespeichert werden.
    Und:
    Schmeiß das Module / End Module raus.
    Sieh Dir mal das an, da wird nur ein Event geworfen:

    VB.NET-Quellcode

    1. Private Sub IsEqual(ByVal CurrentItem As String)
    2. Dim file As String = IO.Path.GetFileName(CurrentItem)
    3. Dim found As Boolean = False
    4. For Each ss As String In Me.m_FileName
    5. If ss = file Then
    6. found = True
    7. Exit For
    8. End If
    9. Next
    10. RaiseEvent CurrentFile(CurrentItem, found)
    11. End Sub
    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
Telefonspende