Get File Icon used by Shell

by 
Imports System.Drawing
Module Module1

    Sub Main()    
        Dim filePath As String =  "C:\myfile.exe"  
        Dim TheIcon As Icon = IconFromFilePath(filePath)  

        If TheIcon IsNot Nothing Then    
            ''#Save it to disk, or do whatever you want with it.
            Using stream As New System.IO.FileStream("c:\myfile.ico", IO.FileMode.CreateNew)
                TheIcon.Save(stream)          
            End Using
        End If
    End Sub

    Public Function IconFromFilePath(filePath As String) As Icon
        Dim result As Icon = Nothing
        Try
            result = Icon.ExtractAssociatedIcon(filePath)
        Catch ''# swallow and return nothing. You could supply a default Icon here as well
        End Try
        Return result
    End Function
End Module

More Related Contents:

  1. How to get ALL child controls of a Windows Forms form of a specific type (Button/Textbox)?
  2. Controlling Volume Mixer
  3. How to find overlapping controls that I added to form?
  4. Winforms: Application.Exit vs Environment.Exit vs Form.Close
  5. Select either a file or folder from the same dialog in .NET
  6. Get the SourceControl of a DropDownMenu
  7. Save Settings in VB.Net or C#
  8. center MessageBox in parent form [duplicate]
  9. How do I make a form modal in Windows Forms?
  10. Why is there a default instance of every form in VB.Net but not in C#?
  11. How do I pass a value from a child back to the parent form?
  12. Word wrap for a label in Windows Forms
  13. How to get an HtmlElement value inside Frames/IFrames?
  14. With block equivalent in C#?
  15. How to make two transparent layer with c#?
  16. Using statement vs. IDisposable.Dispose()
  17. Generic base class for WinForm UserControl
  18. Change border color in TextBox C#
  19. Hiding unwanted properties in custom controls
  20. Process.Start to open an URL, getting an Exception?
  21. String.Format – how it works and how to implement custom formatstrings
  22. Remove Row inside TableLayoutPanel makes a layout problem
  23. BindingList.Sort() to behave like a List.Sort()
  24. Toggle switch control in Windows Forms
  25. How to check if the system audio is muted?
  26. What ‘length’ parameter should I pass to SqlDataReader.GetBytes()
  27. How to refresh datagridview when closing child form?
  28. Change ComboBox Border Color in Windows Forms
  29. How to set text to a control from resource file in design time?
  30. Passing a variable between Windows Forms forms

Leave a Comment