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

Créer un raccourci windows   



L'auteur

x
France 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é 4556 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description

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...


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3