VB.NET File Binder by KoC part1

        'Als eerste openen we de OpenFileDialog kijken we of hij is gesloten met de OK knop.
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

            'dan loopen we door elke file
            For Each fileName As String In OpenFileDialog1.FileNames

                'Hier openen we het huidige bestand als een FileStream en noemen hem fs
                Dim fs = File.OpenRead(fileName)

                'dan maken we een Array()genaamd listArr met 3 string items
                Dim listArr(3) As String
                'in het eerste item slaan we de filename op
                listArr(0) = fileName
                'in het tweede de de grootte van het bestand in Bytes
                'daar hebben we dus die FileStream voor nodig
                listArr(1) = fs.Length
                'Dan pakken we de bestandsnaam (inclusief map) en splitsen we de naam bij elke punt
                'Dan nemen we het laatste gedeelte. De bestandsextensie
                'Die slaan we in het 3e item van de Array op
                listArr(2) = fileName.Split(".").Last

                'dan pakken we die array, maken er een ListViewItem van
                'en voegen die toe aan ListView1
                ListView1.Items.Add(New ListViewItem(listArr))

                'Hier sluiten we de FileStream zodat het RAM geheugen niet vol raakt
                fs.Close()
            Next

        End If