Vb.net Créer un Raccourci de Fichier ou DossierRésolu

Question

Bonjour, 
j'ai crée un logiciel qui me permet de créer beaucoup de raccourcis en même temps
(que ce soit un raccourci d'un fichier ou dossier), dans cette partie il y a aucun problème.
Je peux aussi changer le nom et l'icône du raccourci,bien sûr ils seront crées dans un emplacement bien précis.
je voulais aussi créer des raccourci des dossiers spéciaux comme (Poste de travail, Bureau, Mes Documents, Documents, Images, Musiques, Vidéos, Documents récents, Windows, ProgramFiles, Gestionnaire de périphériques, Gestion de l'ordinateur, Gestion des disques, Panneau de Configuration, Programmes et fonctionnalités ... etc)
j'arrive à le faire sans problème le raccourci se crée avec le nom que je choisi et l'icone par défaut,sauf pour ("Programmes et fonctionnalités ou  Ajout/Suppression de programmes") , le nom est celui que je choisi mais l'icone qui est attribué au raccourci n'est pas celle par défaut :

si j'essaie de changer l'icône, l'icône change sans aucun problème
mais j'aimerais avoir l'icône par défaut comme pour tous les autres dossiers
Voici le code pour créer un Raccourci sans modifier l'icone :
 Private Function CreerRaccourci(ByVal TargetName As String, ByVal ShortCutPath As String, ByVal ShortCutName As String) As Boolean        Dim oShell As Object        Dim Raccourcis As Object        Try            oShell = CreateObject("WScript.Shell")            Raccourcis = oShell.CreateShortcut(ShortCutPath & "\" & ShortCutName & ".lnk")            Raccourcis.TargetPath = TargetName            Raccourcis.WindowStyle = 1            Raccourcis.Save()        Catch ex As Exception        End Try    End FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickCreerRaccourci("Chemin du fichier", Environment.GetFolderPath(Environment.SpecialFolder.Desktop) &, "Nom du fichier modifier")End sub
Voici le code pour créer un Raccourci + modifier l'icone :
 Private Function CreerRaccourciAvecIcone(ByVal TargetName As String, ByVal ShortCutPath As String, ByVal ShortCutName As String, ByVal Icones As String) As Boolean        Dim oShell As Object        Dim Raccourcis As Object        Try            oShell = CreateObject("WScript.Shell")            Raccourcis = oShell.CreateShortcut(ShortCutPath & "\" & ShortCutName & ".lnk")            Raccourcis.TargetPath = TargetName            Raccourcis.WindowStyle = 1            Raccourcis.IconLocation = Icones            Raccourcis.Save()        Catch ex As Exception        End Try    End FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickCreerRaccourci("Chemin du fichier", Environment.GetFolderPath(Environment.SpecialFolder.Desktop) &, "Nom du fichier modifier", "Chemin de l'icone")End sub
pour créer le raccourci de Ajout/Suppression de programmes, remplacer "Chemin du fichier" par "Appwiz.cpl"
quelqu'un a une idée pour régler ce détail?
merci pour votre aide

Arnoid · Answer

Bonjour, 

Pourquoi ne trouves-tu pas l'icone sur intenet puis l'ajouter dans ton programme pour qu'il l'utilise ?

kikou93 · Answer

Salut 
j'ai pu récupérer les icone de :
C:\Windows\system32\SHELL32.dll 
C:\Windows\system32\imageres.dll 
il sont ici :
https://www.transfernow.net/918i6144r9j1

Vb.net Créer un Raccourci de Fichier ou Dossier

2 réponses

Votre réponse

Discussions similaires