suppressionRésolu

Question

bonjour 
j'ai mis en place une stratégie de création d'icône sur le bureau vie le réseau voici le script

Script :
Dim Shell, DesktopPath, URL
Set Shell =  CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & " \Labo MS.URL ")
URL.TargetPath  = "www.laboratoire-microsoft.org"
URL.Save

maintenant
je voudrais faire la manip inverse, supprimer l'icône créé, ou
supprimer l'icône à la fin de la connexion es que quelqu'un aurait une
idée (le script est un copier collé je n'ai pas de notion) merci

cs_JMO · Accepted Answer

Bonjour mrbiort,

Bonjour Jack,

Set objShell = CreateObject("WScript.Shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
DesktopPath = objShell.SpecialFolders("Desktop")
objFso.DeleteFile DesktopPath & "	est_Shortcut MonRaccourci.lnk"
Set objFso = Nothing
Set objShell = Nothing

jean-marc

cs_Jack · Answer

Salut
Je n'y connais pas grand chose en VBScript, mais un racourci (ce que tu appelles une icone) n'est qu'un fichier.
Il doit donc suffire de faire un Delete (*) de ce fichier URL (chemin et nom du fichier = DesktopPath & "\Labo MS.URL").
(*) Regarde du côté du Shell

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

mrbiort · Answer

un truc comme sa ?

Set URL = Shell.DeleteShortcut(DesktopPath & "\Labo MS.URL")

désolé si j'ai pas compris ce que tu voulais dire :)

cs_Jack · Answer

Re Si c'est pas Delete, c'est peut-être Remove ... Vala Jack, MVP VB NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Ah bah oui, il y aussi le fameux <FileSystemObject>

mrbiort · Answer

ok merci JMO je v tester

mrbiort · Answer

bon bah c bon ça marche merci beaucoup :) sa va éviter de passer sur 200 postes hihi

Suppression

7 réponses

Votre réponse

Discussions similaires