Créer un raccourcis (.lnk)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 816 fois - Téléchargée 30 fois

Contenu du snippet

cette fonction vous permet de créer des raccourcis.

Source / Exemple :


Function createshortcut(lnkname, arguments, description, key, iconf, targetfile, windowsmode, workingdir) As Boolean
createshortcut = True
err.Clear
On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
Set a = WshShell.createshortcut(lnkname)
a.arguments = arguments
a.description = description
a.Hotkey = key
a.IconLocation = iconf
a.TargetPath = targetfile
a.WindowStyle = windowsmode
a.WorkingDirectory = workingdir
a.Save
If err Then createshortcut = False
End Function

A voir également

Ajouter un commentaire

Commentaires

cs_PaTaTe
Messages postés
2081
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
2
Appel a Microsoft EMPECHEZ L'UTILISATION DE FSO DANS VB ... CEST DE LA MERDE (© Jean Pirrer Coofe)

FSO ca fait dependre vos programmes de DLL supplémentaire, c'est extremement lent (c'est l'horreur ca)

Mais comme toujours c'est la facilité ...
cs_kehops
Messages postés
25
Date d'inscription
mercredi 26 mars 2003
Statut
Membre
Dernière intervention
20 mars 2007

Bonne source mais sa manque de commentaires... ;)
garfandgarf
Messages postés
3
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
15 avril 2004

Petite question, dans toutes les paramètres de ta procédure t'explique pas a quoi ca sert, et j'avoue n'pas maitriser beaucoup voire mm du tout donc si jpouvais savoir a quoi ca correspond ca serait sympa!
merci d'avance !
cs_windob
Messages postés
225
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
25 août 2008

bin dsl, mais il ya dix ans j'avais 4ans et merci masi j'avais deja trouvé tous seul
BruNews
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
18
Raccourci sur Bloc-notes dans ton dossier SendTo comme indique plus haut, ne rien interpreter mais faire tel que ecrit.
Pourtant simple, n'a pas change depuis bientot 10 ans (win95).

BruNews, Admin CS, MVP Visual C++
Afficher les 17 commentaires

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.