Créer un raccourcis (.lnk)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 959 fois - Téléchargée 31 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
Messages postés
2107
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
19 février 2021
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é ...
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... ;)
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 !
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
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
28
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.