Question

I’ve got this code which basically loops through a set of folders and subfolders and finds specific file types. And then lists these in a listview. Now, it’s intended to list exe and msi files. And I’ve made it so that these icons can be doubleclicked after they have been listed. I do this by adding the path to the file in it’s tag property.

But, my superiors want a checkbox next to each item. So that they can check each item they want installed. And then have a button which runs the path in each tag property one at a time. It’s basically the part where I fill the listview with the checkbox, filename of the exe or msi file, tag and the icon that I’m wondering about.

This is the existing code. This includes just a Tile view of the listview.

   Public Sub getDirectories(ByVal strFilepath As String, ByVal strFileExtension As String, ByVal objControl As Object)

        'Load first files from the root folder. Then loop each subfolder
        Dim di As New DirectoryInfo(strFilepath)
        Dim aryFi As IO.FileInfo() = di.GetFiles(strFileExtension, SearchOption.AllDirectories)

        Dim filePath As String
        Dim fileIcon As Icon

        ' For each file in the root folder
        For Each file In aryFi
            If file.Extension = String.Empty Then
            Else
                filePath = GetAssociatedProgram(file.Extension)
                On Error Resume Next

                'Extract icon
                fileIcon = Drawing.Icon.ExtractAssociatedIcon(filePath)
                'Add the icon if we haven't got it already
                objControl.StateImageList = Form1.iconList

                If Form1.iconList.Images.ContainsKey(filePath) Then
                Else
                    Form1.iconList.Images.Add(filePath, fileIcon)
                End If
                'Add item to list
                objControl.items.add(file.Name, filePath).Tag = file.DirectoryName
            End If
        Next

    End Sub

Basically I call this sub in this way:

getDirectories(strProgramLocation, "*.exe", Form1.listViewSupSoftware)

And I’ve found that I can add items to a listview which also contains columns:

        Dim tempstr(2) As String
        tempstr(0) = "Name of item"
        tempstr(1) = "Target folder of item"

        Dim tempNode As ListViewItem
        tempNode = New ListViewItem(tempstr)
        Form1.listViewItem.Items.Add(tempNode)

But there should be a way of combining these two right? I’m not sure how I can add a checkbox in the first column of the listview? I’ve already set the Checkbox property of the listview to True. But I could use some pointers here if anyone’s got any. 🙂

Answer 1

Mmm, I don’t understand quite well your question. If you already have the listbox you just need to use a CheckedListBox and loop thru all the checked items executing the executable stored into the tag property …

As I said I’m not sure If I get what you mean …