Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    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

Visual Basic 2008 Express Edition
Erfahrungen: Anf?nger