Tester la présence d'un raccourci et le supprimer

bonjour

j'ai un problème avec se code il se lance bien mais il ne se passe rien

le code serre a rechercher et a supprimer un raccourci sur le bureau

mais je ne connais pas en entier le nom du raccourci mais la structure du nom est nas-.... .lnk

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

sub supprrac 'Déclaration des variables Dim Shell, DesktopPath, objFSO 'Création des variables Set Shell = CreateObject("WScript.Shell" ) DesktopPath = Shell.SpecialFolders("Desktop" ) Set objFSO = CreateObject("Scripting.FileSystemObject" ) 'Supression du raccourci If objFSO.FileExists(DesktopPath & "\nas-*.lnk" ) Then MsgBox "Ca marche !" objFSO.DeleteFile DesktopPath & "\nas-*.lnk" End If REM If objFSO.FileExists(DesktopPath & "\nav*.lnk" ) Then REM objFSO.DeleteFile DesktopPath & "\nav*.lnk" REM End If   end sub

---

merci d'avance de votre aide

nicogef

Certaines modifications doivent être faites sur ton code.
De plus, si tu ne fais pas un appel à la procédure (SupprRac), rien ne se passe. En voici une esquisse :

Code:

---

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

SupprRac Sub SupprRac() 'Déclaration des variables Dim Shell, DesktopPath, objFSO, Fichier 'Création des variables Set Shell = CreateObject("WScript.Shell" ) Set objFSO = CreateObject("Scripting.FileSystemObject") Set DesktopPath = objFSO.GetFolder(Shell.SpecialFolders("Desktop")) 'Supression du raccourci For Each Fichier In DesktopPath.Files If LCase(Left(Fichier.Name, 4)) = "nas-" And LCase(objFSO.GetExtensionName(Fichier.Name)) = "lnk" Then MsgBox "Ca marche !" Fichier.Delete True End If Next End Sub

---