'-----------------------------------------
'Elemente: 
'Formular "Form1"
'darauf ein Button "Button1" und
'eine Listbox "Listbox1"
'-----------------------------------------
 
 
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        'Liest alle Dateien aus einem Ordner aus
        'inkl. Unterverzeichnisse
        'Ausgabe in Listbox1
 
        'Ordner festlegen und Dateien in Array einlesen
        Dim strOrdner As String = "C:\TEST"
 
        'Prüfen, ob der Ordner existiert
        If Directory.Exists(strOrdner) = False Then
            MessageBox.Show("Der Ordner [" & strOrdner & "] existiert nicht.", _
              "Ordner nicht gefunden", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
            Exit Sub
        End If
 
        'Array definieren und alle Dateien einlesen
        Dim arrSuche As String() = Directory.GetFiles(strOrdner, "*.*", _
          SearchOption.AllDirectories)
 
        'Listbox 1 zunächst leeren
        ListBox1.Items.Clear()
 
        'Listbox füllen
        For Each strDatei As String In arrSuche
            ListBox1.Items.Add(strDatei.ToString())
        Next
 
    End Sub
End Class

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

Beitrag wurde zuletzt am 27.09.18 um 15:20:47 editiert.