Imports System.IO
 
Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.Text = "C:\"
    TextBox2.Text = "*.*"
  End Sub
 
  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Dim i As Int32
    Try
      Dim arrAllFiles() As String = _
            Directory.GetFiles(TextBox1.Text, TextBox2.Text)
      ListBox1.Items.Clear()
      For i = 0 To arrAllFiles.Length - 1
        ListBox1.Items.Add(arrAllFiles(i))
      Next
      Label1.Text = CStr(arrAllFiles.Length)
    Catch Except As Exception
      MsgBox(Except.Message & vbNewLine & _
              "Möglicherweise ist die Pfadangabe falsch.", _
              MsgBoxStyle.Exclamation)
      ListBox1.Items.Clear()
      Label1.Text = CStr(0)
    End Try
  End Sub
 
  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class