associëren met bestand

[johannetje2]

Hallo! Ik heb nu de volgende code:

Public Class Form1
    Public Shared Sub AssociateFileType(ByVal Extension As String, ByVal Description As String, ByVal Executable As String, Optional ByVal Icon As String = "")
        My.Computer.Registry.ClassesRoot.CreateSubKey(Extension).SetValue("", Description, 1)
        My.Computer.Registry.ClassesRoot.CreateSubKey(Extension & "\Shell\Open\Command").SetValue("", Executable & " %l", 1)
        If Icon <> "" Then My.Computer.Registry.ClassesRoot.CreateSubKey(Extension & "\defaulticon").SetValue("", Icon, 1)
    End Sub
    Public Shared Sub UnassociateFileType(ByVal Extension As String)
        My.Computer.Registry.ClassesRoot.DeleteSubKeyTree(Extension)
    End Sub
    Public Shared Function GetStartupFile(ByVal CommandLine As String) As String
        If Not CommandLine.Contains("""") Then Return ""
        If CommandLine.Split("""").Length > 2 Then Return CommandLine.Split("""").GetValue(2).Trim
        Return ""
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AssociateFileType(".jf", "Johanentje2 programma bestand", Application.ExecutablePath, )
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        UnassociateFileType(".jf")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If GetStartupFile(Environment.CommandLine) <> "" Then
            TextBox1.Text = My.Computer.FileSystem.ReadAllText(GetStartupFile(Environment.CommandLine))
        End If
    End Sub
End Class

Maar als ik nu met kladblok een bestandje maak en er .jf achter zet, dan krijgt het niet een icoontje! Wat wel werkt is dattie hem met mijn programma opent, maar hoe kan in zorgen dat er wel een icoontje komt bij een .jf bestand?

 

[That Guy]

Public Shared Sub AssociateFileType(ByVal Extension As String, ByVal Description As String, ByVal Executable As String, Optional ByVal Icon As String = "")

zie laatste parameter; 'optional icon'

AssociateFileType(".jf", "Johanentje2 programma bestand", Application.ExecutablePath, )

ik zie wel een leuke comma achter de laatste parameter, maar nergens een icoon-referentie (string)...


:thumb:

 

[johannetje2]

Waar moet ik dan het path van het icoontje neerzetten?

 

[That Guy]

Umh, zoiets

AssociateFileType(".jf", "Johanentje2 programma bestand", Application.ExecutablePath, "C:\map\icoontje.ico")

denk ik. Verder geen ervaring mee.

 

[johannetje2]

Helaas heeft dat ook niet gewerkt, want ik had dat al geprobeerd voordat ik het hier postte!

 

[That Guy]

staat het icoo bestand wel op de goede plek? Waar heb je de code zowiezo vandaan?

 

[johannetje2]

Het icoon staat op C:\Users\Psycho\Desktop\Vista_Shield.ico maar het werkt gwn niet!

 

[johannetje2]

Weet iemand nog waar de fout zit?