MUDAR ICONE

Citação:

vai mudar o comportamento do arquivo.

 Public Class Form1
    Private Function ProcuraExtensao(ByVal Extensao As String) As Boolean

        For Each S As String In My.Computer.Registry.ClassesRoot.GetSubKeyNames
            If UCase(Extensao.Trim) = UCase(Replace(S, [Ô].[Ô], [Ô][Ô]).Trim) Then
                Return True
            End If
        Next

        Return False
    End Function
    Private Sub Anexa_Icon_Click(sender As System.Object, e As System.EventArgs) Handles Anexa_Icon.Click

        Dim CaminhoExe As String = Application.StartupPath & [Ô]\[Nome do Ficheiro].Txt[Ô]
        Dim CaminhoIco As String = Application.StartupPath & [Ô]\[Nome do Icon].ico[Ô]
        Dim Extensao As String = [Ô]Txt[Ô]

        My.Computer.Registry.ClassesRoot.CreateSubKey([Ô].[Ô] & Extensao).SetValue([Ô][Ô], Extensao, Microsoft.Win32.RegistryValueKind.String)
        My.Computer.Registry.ClassesRoot.CreateSubKey(Extensao & [Ô]\shell\open\command[Ô]).SetValue([Ô][Ô], CaminhoExe & [Ô] [Ô][Ô]%l[Ô][Ô] [Ô], Microsoft.Win32.RegistryValueKind.String)
        My.Computer.Registry.ClassesRoot.CreateSubKey(Extensao & [Ô]\DefaultIcon[Ô]).SetValue([Ô][Ô], CaminhoIco, Microsoft.Win32.RegistryValueKind.ExpandString)
    End Sub

    Private Sub Normalizar_Click(sender As System.Object, e As System.EventArgs) Handles Normalizar.Click
        Dim Extensao As String = [Ô]Txt[Ô]

        My.Computer.Registry.ClassesRoot.DeleteSubKey([Ô].[Ô] & Extensao, False)
        My.Computer.Registry.ClassesRoot.DeleteSubKey(Extensao & [Ô]\DefaultIcon[Ô], False)
        My.Computer.Registry.ClassesRoot.DeleteSubKey(Extensao & [Ô]\shell\open\command[Ô], False)
        My.Computer.Registry.ClassesRoot.DeleteSubKey(Extensao & [Ô]\shell\open[Ô], False)
        My.Computer.Registry.ClassesRoot.DeleteSubKey(Extensao & [Ô]\shell[Ô], False)
        My.Computer.Registry.ClassesRoot.DeleteSubKey(Extensao, False)
    End Sub
End Class