Supprimer un raccourci du bureau et/ou du menu démarrer

Commenter

Contenu du snippet

Mon code est simple et sert seulement à supprimer un raccourci du bureau ou du menu démarrer. Étant donné, après mes looooonnngues recherches, qu'il y a peu (ou pas) de sources à ce sujet.
Dans mon exemple, vous avez besoin que d'une feuille standard.
Je me suis inspiré de la source de Mika1000 et de clementpat. Merci pour vos sources!!!

Source / Exemple : 


Private Sub Command1_Click()
Dim WSHShell

Set WSHShell = CreateObject("Wscript.Shell")
    
Dim MenudemarrerPath, BureauPath

    BureauPath = WSHShell.SpecialFolders("Desktop") ' Voir les notes en bas pour les différents path.
    MenudemarrerPath = WSHShell.SpecialFolders("AllUsersStartMenu")

'pour supprimer un raccourci du bureau
Kill BureauPath & "\LENOMDETONRACCOURCIS.lnk" 
'pour supprimer un raccourci du menu Démarrer                              
Kill MenudemarrerPath & "\LENOMDETONRACCOURCIS.lnk" 

set WSHShell = nothing
End
End Sub

'AllUsersDesktop
'AllUsersStartMenu
'AllUsersPrograms
'AllUsersStartup
'Favorites
'Fonts
'MyDocuments
'NetHood
'PrintHood
'Programs
'Récent
'SendTo
'StartMenu
'Startup
'Templates

Conclusion :


Voilà. C'est simple non? Mais ne soyez pas trop dur avec moi car je suis un débutant.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.