[RESOLVED] sorted fileinfo compared to listview sort

[phpman]

I have this function that gets the files in a specific folder to be added to the listview. That all works, but I am looking to sort the files before they are added to the listview. The problem is if I sort the listview in properties and then add the files to the list, the listview item tags are not set, they are as how they get added to the listview.

I have search and found LINQ but when I try it sorts are different than the lsitview property sort

Public Function ListFoldersFiles(ByVal path As String, ByVal lvTemp As ListView, ByVal imgLtemp As ImageList) As String()

        ' Create a reference to the current directory.
        Dim di As New DirectoryInfo(path)
        'MsgBox(di.ToString)
        If Directory.Exists(di.ToString) Then

            ' Create an array representing the files in the current directory.
            Dim fi As FileInfo() = di.GetFiles()
            Dim fiTemp As FileInfo
            Dim i As Short
            Array.Sort(fi, New compclass(SortOrder.Ascending))

            lvTemp.Items.Clear()

            i = 0

            ' Loop through each file in the directory
            For Each fiTemp In fi

                Dim strImageKey As String = String.Empty
                Try
                    ' gets the icon from file
                    Dim ico As Icon = Icon.ExtractAssociatedIcon(path & fiTemp.Name)
                    If ico IsNot Nothing Then
                        Dim bmp As Bitmap = ico.ToBitmap()
                        strImageKey = bmp.GetHashCode.ToString
                        imgLtemp.Images.Add(strImageKey, bmp)
                    End If
                Catch ex As Exception

                End Try

                ' split the extension off so we can use just the text.

                Dim rFileName As Array = Split(fiTemp.Name, ".")
                ' MsgBox(rFileName(0))
                lvTemp.Items.Add(fiTemp.Name, rFileName(0), strImageKey)
                ' add full name to tag so we can call it later seeing how we 
                ' don't use the extension for the text.

                lvTemp.Items(i).Tag = path & fiTemp.Name
                ' MsgBox(lvTemp.Items(i).Tag)

                i = i + 1

            Next fiTemp
        End If
    End Function

[jmcilhinney]

I'm not really sure what you're saying your problem is. If you set the Tag of a ListViewItem then the Tag of that item doesn't change just because you sort the items. As you alluded to, LINQ is basically your simplest option here, e.g.

Dim folder As New IO.DirectoryInfo("file path here")
 
For Each file As IO.FileInfo In folder.GetFiles().OrderBy(Function(fi) fi.CreationTime)
    Dim item As New ListViewItem(file.Name) With {.Tag = file}
 
    Me.ListView1.Items.Add(item)
Next

That will give you your initial order but you may still want to consider allowing the user to sort the list by clicking on a column header.

[phpman]

When I click on the treeview child, it loads the icons correctly. but when I go and click on the icon it's tag is empty. I checked that each tag is added when the icons are added to the listview and they were correct. But when actually clicking on the icon it is wrong. I took off the sort property on the listview and it worked just like it should, all items in the child had the correct tag info.

Now, when I added the above code to sort on the fileinfo it is not the same as the listview sort. I would rather have the listview sort as it is more alphabetically correct, the sort with the fileinfo is not correct. I sort by name, not date. So when I used LINQ the .Name is not an option here "fi.CreationTime" It gives me errors.

for instance, if I have sort on the listview in the properties section, and I have 4 icons listed in the listview, I click on the last icon listed (large icon view) I get the first icons tag, yet the first icon's tag is empty. So yes it does change and it is all related to the sort property on the lsitview.

[phpman]

I need to bring this backup as I am still having issues. Again, if I do not sort on anything it works fine, but once you sort the listview on large icons it loses the tag indexing. I do not use columns and we will not allow the user to sort. so sorting ascending is preferred.

[.paul.]

this works:

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim folder As New IO.DirectoryInfo("folder path")
 
        For Each file As IO.FileInfo In folder.GetFiles().OrderBy(Function(fi) fi.CreationTime)
            Dim strImageKey As String = String.Empty
            Try
                ' gets the icon from file
                Dim ico As Icon = Icon.ExtractAssociatedIcon(file.FullName)
                If ico IsNot Nothing Then
                    Dim bmp As Bitmap = ico.ToBitmap()
                    strImageKey = bmp.GetHashCode.ToString
                    imgLtemp.Images.Add(strImageKey, bmp)
                End If
 
                Dim item As New ListViewItem(file.Name, imgLtemp.Images.Count - 1) With {.Tag = file}
                Me.ListView1.Items.Add(item)
 
            Catch ex As Exception
 
            End Try
        Next
    End Sub
 
End Class

[phpman]

But that sorts on creationdate, I need them sorted alphabetically by name.

Plus when I try that code I get an error on this line

folder.GetFiles().OrderBy

Stating that "OderBy" is not a member of "system.array".

[.paul.]

which version of vb.net are you using?

[phpman]

2010 express

[i00]

i would use:

ListView1.Items.AddRange((From xItem In FileIO.FileSystem.GetFiles("c:\", FileIO.SearchOption.SearchTopLevelOnly, "*.*") Order By xItem Select New ListViewItem(IO.Path.GetFileName(xItem)) With {.Tag = xItem}).ToArray)

Kris

[i00]

Also ... maybe you should list the item sort from both examples

for eg:
Listbox sort order:
aa
a
b
Linq sort order:
a
aa
b

Kris

[.paul.]

which framework are you targetting?

is it an upgraded project?

be sure you have a reference to System.Xml.Linq

[phpman]

I think I got it with a modification from pauls code

so far this is working

 Public Sub ListFoldersFiles(ByVal path As String, ByVal lvTemp As ListView, ByVal imgLtemp As ImageList)
       
        ' Create a reference to the current directory.
        Dim di As New DirectoryInfo(path)
        
        If Directory.Exists(di.ToString) Then

            ' Create an array representing the files in the current directory.
            Dim fi As FileInfo() = di.GetFiles()
            Dim fiTemp As FileInfo
            Dim i As Short
            Array.Sort(fi, New compclass(SortOrder.Ascending))

            lvTemp.Items.Clear()
           
                       
            ' Loop through each file in the directory
            For Each fiTemp In fi

                Dim strImageKey As String = String.Empty
                Try
                    ' gets the icon from file
                    Dim ico As Icon = Icon.ExtractAssociatedIcon(path & fiTemp.Name)
                    If ico IsNot Nothing Then
                        Dim bmp As Bitmap = ico.ToBitmap()
                        strImageKey = bmp.GetHashCode.ToString
                        imgLtemp.Images.Add(strImageKey, bmp)
                    End If
                Catch ex As Exception

                End Try

                ' split the extension off so we can use just the text.

                Dim rFileName As Array = Split(fiTemp.Name, ".")                
                Dim fname As String = rFileName(0)
               
                ' add full name to tag so we can call it later seeing how we 
                ' don't use the extension for the text.
                Dim item As New ListViewItem(fname, imgLtemp.Images.Count - 1) With {.Tag = path & fiTemp.Name}
                lvTemp.Items.Add(item)
                             

            Next fiTemp

        End If
    End Sub