Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Claude BELLAMY
Dans le message news:04f901c46e22$37d42550$ , david s'est ainsi exprimé:
Bonjour,
Est il possible de tester la présence d'un raccourci sur le bureau all users.
Un raccourci, ce n'est rien d'autre qu'un fichier, avec l'extension ".lnk" (raccourci classique) ou ".url" (raccourci Internet)
Set args=Wscript.arguments if args.count=0 then wscript.quit Set Shell=Wscript.CreateObject("WScript.Shell") Set fldrs=Shell.SpecialFolders Bureau=fldrs("AllUsersDeskTop") Shortcut=Bureau & "" & args(0) & ".lnk" if fso.FileExists(Shortcut) then wscript.echo "Le raccourci " & args(0) & " existe" else ... end if
Et s'il n'est pas présent un copier un ? Copier depuis quoi ? où ?
Un autre raccourci ?
Créer un raccourci ex nihilo ? Si c'est le cas, il existe déjà mon script RACCOURCI.VBS http://www.bellamyjc.org/fr/vbsdownload.html#raccourci
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org http://www.bellamyjc.org *
Dans le message news:04f901c46e22$37d42550$a501280a@phx.gbl ,
david <anonymous@discussions.microsoft.com> s'est ainsi exprimé:
Bonjour,
Est il possible de tester la présence d'un raccourci sur
le bureau all users.
Un raccourci, ce n'est rien d'autre qu'un fichier, avec l'extension ".lnk"
(raccourci classique) ou ".url" (raccourci Internet)
Set args=Wscript.arguments
if args.count=0 then wscript.quit
Set Shell=Wscript.CreateObject("WScript.Shell")
Set fldrs=Shell.SpecialFolders
Bureau=fldrs("AllUsersDeskTop")
Shortcut=Bureau & "" & args(0) & ".lnk"
if fso.FileExists(Shortcut) then
wscript.echo "Le raccourci " & args(0) & " existe"
else
...
end if
Et s'il n'est pas présent un copier un ?
Copier depuis quoi ? où ?
Un autre raccourci ?
Créer un raccourci ex nihilo ?
Si c'est le cas, il existe déjà mon script RACCOURCI.VBS
http://www.bellamyjc.org/fr/vbsdownload.html#raccourci
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
Dans le message news:04f901c46e22$37d42550$ , david s'est ainsi exprimé:
Bonjour,
Est il possible de tester la présence d'un raccourci sur le bureau all users.
Un raccourci, ce n'est rien d'autre qu'un fichier, avec l'extension ".lnk" (raccourci classique) ou ".url" (raccourci Internet)
Set args=Wscript.arguments if args.count=0 then wscript.quit Set Shell=Wscript.CreateObject("WScript.Shell") Set fldrs=Shell.SpecialFolders Bureau=fldrs("AllUsersDeskTop") Shortcut=Bureau & "" & args(0) & ".lnk" if fso.FileExists(Shortcut) then wscript.echo "Le raccourci " & args(0) & " existe" else ... end if
Et s'il n'est pas présent un copier un ? Copier depuis quoi ? où ?
Un autre raccourci ?
Créer un raccourci ex nihilo ? Si c'est le cas, il existe déjà mon script RACCOURCI.VBS http://www.bellamyjc.org/fr/vbsdownload.html#raccourci
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org http://www.bellamyjc.org *
david
Merci
-----Message d'origine----- Dans le message news:04f901c46e22$37d42550 $ ,
david s'est ainsi exprimé:
Bonjour,
Est il possible de tester la présence d'un raccourci sur le bureau all users.
Un raccourci, ce n'est rien d'autre qu'un fichier, avec l'extension ".lnk"
(raccourci classique) ou ".url" (raccourci Internet)
Set args=Wscript.arguments if args.count=0 then wscript.quit Set Shell=Wscript.CreateObject("WScript.Shell") Set fldrs=Shell.SpecialFolders Bureau=fldrs("AllUsersDeskTop") Shortcut=Bureau & "" & args(0) & ".lnk" if fso.FileExists(Shortcut) then wscript.echo "Le raccourci " & args(0) & " existe" else ... end if
Et s'il n'est pas présent un copier un ? Copier depuis quoi ? où ?
Un autre raccourci ?
Créer un raccourci ex nihilo ? Si c'est le cas, il existe déjà mon script RACCOURCI.VBS http://www.bellamyjc.org/fr/vbsdownload.html#raccourci
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org http://www.bellamyjc.org *
.
Merci
-----Message d'origine-----
Dans le message news:04f901c46e22$37d42550
$a501280a@phx.gbl ,
david <anonymous@discussions.microsoft.com> s'est ainsi
exprimé:
Bonjour,
Est il possible de tester la présence d'un raccourci sur
le bureau all users.
Un raccourci, ce n'est rien d'autre qu'un fichier, avec
l'extension ".lnk"
(raccourci classique) ou ".url" (raccourci Internet)
Set args=Wscript.arguments
if args.count=0 then wscript.quit
Set Shell=Wscript.CreateObject("WScript.Shell")
Set fldrs=Shell.SpecialFolders
Bureau=fldrs("AllUsersDeskTop")
Shortcut=Bureau & "" & args(0) & ".lnk"
if fso.FileExists(Shortcut) then
wscript.echo "Le raccourci " & args(0) & " existe"
else
...
end if
Et s'il n'est pas présent un copier un ?
Copier depuis quoi ? où ?
Un autre raccourci ?
Créer un raccourci ex nihilo ?
Si c'est le cas, il existe déjà mon script RACCOURCI.VBS
http://www.bellamyjc.org/fr/vbsdownload.html#raccourci
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
-----Message d'origine----- Dans le message news:04f901c46e22$37d42550 $ ,
david s'est ainsi exprimé:
Bonjour,
Est il possible de tester la présence d'un raccourci sur le bureau all users.
Un raccourci, ce n'est rien d'autre qu'un fichier, avec l'extension ".lnk"
(raccourci classique) ou ".url" (raccourci Internet)
Set args=Wscript.arguments if args.count=0 then wscript.quit Set Shell=Wscript.CreateObject("WScript.Shell") Set fldrs=Shell.SpecialFolders Bureau=fldrs("AllUsersDeskTop") Shortcut=Bureau & "" & args(0) & ".lnk" if fso.FileExists(Shortcut) then wscript.echo "Le raccourci " & args(0) & " existe" else ... end if
Et s'il n'est pas présent un copier un ? Copier depuis quoi ? où ?
Un autre raccourci ?
Créer un raccourci ex nihilo ? Si c'est le cas, il existe déjà mon script RACCOURCI.VBS http://www.bellamyjc.org/fr/vbsdownload.html#raccourci
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org http://www.bellamyjc.org *
