Visual Basic 2005 Code
 
For Each strFile In IO.Directory.GetFiles(strPath)
  Dim gfi As New Shell32_SHGetFileInfo
  Dim hIconS As Icon = gfi.GetFileIconSmal(strFile)
  Dim hIcon As Icon = gfi.GetFileIconLage(strFile)
      If (Not hIcon Is Nothing) Then
         ImageList2.Images.Add(strFile, hIconS)
         ImageList3.Images.Add(strFile, hIcon)
      End If
  ListView1.Items.Add(IO.Path.GetFileName(strFile), strFile)
Next
 
Public Function GetFileIconSmal(ByVal Filename As String) As Icon
 Dim sfi As New SHFILEINFO
 Dim Size As Int32 = Marshal.SizeOf(sfi)
 Dim hIcon As Icon
 
 Try
 Call SHGetFileInfo(Filename, 0, sfi, Size, SHGFI_ICON Or SHGFI_SMALLICON)
     hIcon = Icon.FromHandle(sfi.hIcon)
     Return hIcon
     Catch ex As Exception
        Return Nothing
 End Try
End Function