Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Create a reference to the current directory.
        Dim di As New DirectoryInfo("C:\")
        ' Create an array representing the files in the current directory.
        Dim fi As FileInfo() = di.GetFiles()
        'Console.WriteLine("The following files exist in the current directory:")
        ' Print out the names of the files in the current directory.
        Dim fiTemp As FileInfo
        For Each fiTemp In fi
            If fiTemp.Name Like "EAN_terz_???.txt" Then
                ListBox1.Items.Add(fiTemp.Name)
            End If
        Next fiTemp

    End Sub