Dim NewClass As MainNew
    Public Sub AddFiles()
        Try
            Static Fileslistused As Boolean
            Dim Pathlengs As Single
            Dim File As String
            Dim Files As Object
            Pathlengs = Len(Me.NewClass.Path)
            Pathlengs = Pathlengs + 2
            Files = My.Computer.FileSystem.GetFiles(Me.NewClass.Path)
            If (Fileslistused = True) Then
                Me.NewClass.LBFiles.Items.Clear()
                Fileslistused = True
            End If
            For Each File In Files
                File = Mid(File, Pathlengs)
                Me.NewClass.LBFiles.Items.Add(File)
            Next
            Fileslistused = True
            Exit Sub
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten" + Chr(13) + "Fehlernummer:" _
              + Str(Err.Number) + Chr(13) + Err.Description, vbOKOnly + _
              vbCritical, "Fehler")
 
        End Try
    End Sub

 
    Public Functions As New Functions
    Public Path As String
    Public Pathsave As String
    Public Sub MainNew_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.DirectoryDialog.ShowDialog()
        If (Me.DialogResult = Windows.Forms.DialogResult.Abort) Then
            Me.LblVerzeichnis.Text = "Es ist kein Verzeichnis ausgewählt" & _
              "worden."
        Else
            Me.LblVerzeichnis.Text = Me.DirectoryDialog.SelectedPath
        End If
        Path = Me.DirectoryDialog.SelectedPath
        Pathsave = Me.DirectoryDialog.SelectedPath
        Me.Height = 457
        Me.Width = 464
        Call Me.Functions.AddFiles()
    End Sub[

Kerni