Hello programmers!
I am making File Browser software and I want to display icons of my files in listview. Here is the code:
ImageList1.Images.Clear()
Dim di As New IO.DirectoryInfo(LocationA.Text)
Dim aryFi As IO.FileInfo() = di.GetFiles("*")
Dim fi As IO.FileInfo
For Each fi In aryFi
For Each files In System.IO.Directory.GetFiles(LocationA.Text)
Dim icons As Icon = Icon.ExtractAssociatedIcon(files)
ImageList1.Images.Add(icons)
Next
ListView1.Items.Add(fi.Name, ImageList1.Images.Count)
Next
This code looks good but when I start the software I see this:
Look at the left listview. First icon in listview loops to end.
Can anyone fix this code?
Thanks.
P.S. LocationA is Label with location of the directory!