En vbs: comment supprimer un programme + son raccourci ?

Bonsoir

Comment supprimer un programme et son raccourci ?

Exemple:

Je veux supprimer avec un sript vbs un programme nommé "monprogram" qui se trouve dans C:\Documents and Settings\Admin\Bureau\Dossier et en même temps sont raccourci qui se trouve dans C:\Documents and Settings\Admin\Bureau

Merci

:salut:
Dans la :faq: Comment effacer un fichier ?

Oui effacer un fichier mais pas avec son raccourci qui se trouve dans un autre chemin..

:salut:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") CheminFichier = "C:\Documents and Settings\Administrateur\Bureau\Dossier\monprogram.exe" CheminRaccourci = "C:\Documents and Settings\Administrateur\Bureau\monprogram.lnk" If oFSO.FileExists(CheminFichier) Then oFSO.DeleteFile CheminFichier,True Else MsgBox "Le fichier n'existe pas",16,"Le fichier n'existe pas" End If If oFSO.FileExists(CheminRaccourci) Then oFSO.DeleteFile CheminRaccourci,True Else MsgBox "Le fichier n'existe pas",16,"Le fichier n'existe pas" End If

---

Merci hackoofr ça fonctionne nikel..

Mais j'avais oublier de préciser que le chemin de "program" ainsi que son raccourci ne sont pas fixe (c'est dire qui peuvent changer de chemin),

Donc après une recherche j'ai trouvé qu'on peux chercher un fichier dans C:/ ou autre, le supprimer et qu'il soit aussi opérationnel dans toutes les sessions.

J'ai récupéré un code qui fait ça ,fonctionne très bien, mais il est incapable de trouver et effacer un raccourci.. (avec les fichier autre que les raccourcis fonctionne bien)

Voici le code, quel est le probleme ? :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Dim objDic Dim oShell   Set objDic = CreateObject("Scripting.Dictionary") ' Define the files you need to delete objDic.Add LCase("cacapipi.jpg.Ink"), ""     Set oShell = CreateObject("Wscript.Shell") strUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")   ' This is where it will only search and delete in the logged on users profile ShowFolderList(strUserProfile)   Function ShowFolderList(folderspec) Dim fso, f, f1, s, sf Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 in sf ShowFolderList(f1.path) ShowFileList(f1.path) Next End Function   Function ShowFileList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc if objDic.Exists(LCase(f1.name)) then fso.deletefile f1.path, true end if Next End Function

---