[VB.NET] Map Uitlezen (Opgelost)

Dim grootte As String = ""
'folder die je gaat uitlezen
Dim map As New IO.DirectoryInfo("C:\Users\BLAAT\Documents")
'alle files in een array opslaan
'kijk naar de GetFiles hieronder, nu staat er niets en gaat hij alle bestanden ophalen
'als je dit doet: GetFiles("*.doc") zal hij alle word-bestanden geven
Dim arrayFiles As IO.FileInfo() = map.GetFiles()
Dim info As IO.FileInfo

'met een for loop elk item ophalen
For Each info In arrayFiles

    Dim item As String = ""

    'bestandsgrootte ophalen
    grootte = (Math.Round(info.Length / 1024)).ToString()
    'naam
    item &= "Naam: " & info.Name
    'grootte toevoegen aan item 
    item &= "  --  Grootte (KB): " & grootte
    'extensie ophalen en toevoegen
    item &= "  --  Extensie: " & info.Extension
    
    'item toevoegen aan listbox
    ListBox1.Items.Add(item)
        
Next

Dim grootte As String = ""
'folder die je gaat uitlezen
Dim map As New IO.DirectoryInfo("C:\Users\BLAAT\Documents")
'alle files in een array opslaan
'kijk naar de GetFiles hieronder, nu staat er niets en gaat hij alle bestanden ophalen
'als je dit doet: GetFiles("*.doc") zal hij alle word-bestanden geven
Dim arrayFiles As IO.FileInfo() = map.GetFiles()
Dim info As IO.FileInfo
 
'met een for loop elk item ophalen
For Each info In arrayFiles
 
    Dim item As String = ""
 
    'bestandsgrootte ophalen
    grootte = (Math.Round(info.Length / 1024)).ToString()
    'naam
    item &= "Naam: " & info.Name
    'grootte toevoegen aan item 
    item &= "  --  Grootte (KB): " & grootte
    'extensie ophalen en toevoegen
    item &= "  --  Extensie: " & info.Extension
 
    'item toevoegen aan listbox
    ListBox1.Items.Add(item)
 
Next