Public Sub SetIcon(ByVal Folderpath As String, ByVal Iconpath As String)
    	Dim b As New IO.FileInfo(Folderpath)
        Dim FileContent As String
        Select Case Environment.OSVersion.Version.Major
           Case 5
      	     FileContent = "[.ShellClassInfo]" & vbNewLine & "IconFile=" & _
        Iconpath & vbNewLine & "IconIndex=0"
           Case Else
             FileContent = "[.ShellClassInfo]" & vbNewLine & "IconResource=" & _
               Iconpath & ", 0"
        End Select
    	If b.Exists = True Then b.Attributes = IO.FileAttributes.Normal
 
    	Dim buffer() As Byte = System.Text.Encoding.UTF8.GetBytes(FileContent)
    	Dim fs As IO.FileStream = b.OpenWrite()
    	fs.Write(buffer, 0, buffer.Length)
    	fs.Close()
 
    	b.Attributes = IO.FileAttributes.System Xor IO.FileAttributes.Hidden
   End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

[.ShellClassInfo]
IconResource=C:\temp\icon.ico, 0

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist