ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Créer un raccourci windows

	Description
Retour à la liste L'auteur x France Membre Simple # 0000000021 enregistré le 13/10/2004 Fiche personnelle Note des membres pas de note	Contributions > 09 - Automation > Windows Scripting Créer un raccourci windows # 0000000086 ajouté le 22/11/2004 16:35:55 et modifié le 01/05/2005 consulté 7576 fois Niveau débutant Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0

	Code source :
	*---> Création du raccourci (sur le bureau) local o_wsh local v_dossier_bureau o_wsh = CreateObject("WScript.Shell") v_dossier_bureau = o_wsh.SpecialFolders("Desktop") with o_wsh.CreateShortcut(Addbs(v_dossier_bureau) + "???.lnk") && Chemin complet + nom du raccourci .TargetPath = "???.???" && Chemin complet + nom du fichier .arguments = "" && Arguments (si nécessaire) .WindowStyle = 3 && 1=Affiche et active, 3=Agrandie, 7=Réduit .Hotkey = "" && Touche de raccourci (si nécessaire) .IconLocation = "???.exe, 0" && Chemin complet + nom du fichier icône (+ indice) .Description = "" .WorkingDirectory = "???" && Dossier par défaut (démarrer dans) endwith
	Commentaires
	le 29/06/2012, Mafan a écrit : Trés bien, mais il manque la ligne : .Save juste avant le endwith...

Les pubs en cours :

Contributions > 09 - Automation > Windows Scripting