!!! DAS PROBLEM IST DAS ER NUR DEN ERSTEN ORDNER DURCHSUCHT !!! ;(
!!! Durchsucht alle Verzeichnisse !!!
!!! Durchsucht alle Verzeichnisse !!!
VB.NET-Quellcode
- Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
- Me.FolderBrowserDialog3.ShowDialog()
- Pfad = Me.FolderBrowserDialog3.SelectedPath
- If Not Pfad.EndsWith("\") Then
- Pfad &= "\"
- End If
- Me.TextBox2.Text = Pfad
- If IO.File.Exists(TextBox3.Text) Then
- End If
- Path = (TextBox3.Text)
- Dim oDir As IO.DirectoryInfo
- On Error Resume Next
- oDir = New IO.DirectoryInfo(Me.TextBox2.Text) 'Hier wird sie Qelle angegeben
- ' alle Dateien des Ordners ermitteln
- ' und in der ListBox anzeigen
- Rekursiv(oDir)
- End Sub
- Private Sub Rekursiv(ByVal oDir As IO.DirectoryInfo)
- Dim oSubDir As IO.DirectoryInfo
- Dim oFile As IO.FileInfo
- ' zunächst alle Dateien des Ordners aufspüren
- For Each oFile In oDir.GetFiles(TextBox3.Text) 'Hier wird angegeben was gesucht wird
- With oFile
- ListBox1.Items.Add(.DirectoryName & "\" & .Name)
- End With
- Next
- ' Jetzt alle Unterverzeichnis durchlaufen
- ' und die Prozedur rekursiv selbst aufrufen
- For Each oSubDir In oDir.GetDirectories
- Rekursiv(oSubDir)
- Next
- TextBox3.Clear()
- TextBox3.Text = TextBox3.Text & "*."
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()