Listview 提取与文件关联的图标并显示在列表视图中

我在vb.NET中有一个代码问题，我已经好几天没能解决了。请原谅，我英语不流利，我是法国人！因此，我的第一段代码填充listview的3列，而第二段代码从文件中提取图标。但我不能匹配这两个，我认为我的第一个代码是不完整的！第一个代码：

For Each file In FileIO.FileSystem.GetFiles(Path)
            Dim item As ListViewItem = ListView1.Items.Add(FileIO.FileSystem.GetName(file))
            item.SubItems.Add(FileIO.FileSystem.GetFileInfo(file).Length & " octets")
            item.SubItems.Add(FileIO.FileSystem.GetFileInfo(file).CreationTime)
Next

第二个代码：

Private Sub ExtractAssociatedIconEx()

        ListView1.LargeImageList = ImageList1
        ListView1.SmallImageList = ImageList1

        Dim dirInfo As IO.DirectoryInfo
        Dim fileInfo As IO.FileInfo
        Dim exeIcon As System.Drawing.Icon

        dirInfo = New IO.DirectoryInfo(StrShortPath & "\Librairies\")

        For Each fileInfo In dirInfo.GetFiles

            If Not String.IsNullOrEmpty(fileInfo.Extension) Then
                exeIcon = System.Drawing.Icon.ExtractAssociatedIcon(fileInfo.FullName)
                If ImageList1.Images.ContainsKey(fileInfo.FullName) Then
                    ListView1.Items.Add(fileInfo.Name, fileInfo.FullName)
                ElseIf Not exeIcon Is Nothing Then
                    ImageList1.Images.Add(fileInfo.FullName, exeIcon)
                    ListView1.Items.Add(fileInfo.Name, fileInfo.FullName)
                Else
                    ListView1.Items.Add(fileInfo.Name)
                End If
            End If

        Next

    End Sub

我似乎无法将两者联系起来，如果两者分开工作，它们就不能一起工作。 提前谢谢。如果你有其他的解决方案，我显然很感兴趣。 问候,

克劳德

PS：第二个代码来自堆栈溢出，六个多月后，我找到了它。感谢它的作者