presence raccourci bureau et le supprimer vbs script

presence raccourci bureau et le supprimer vbs script - VB/VBA/VBS - Programmation

Marsh Posté le 28-04-2014 à 20:45:55    

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

Code :
  1. sub supprrac
  2. 'Déclaration des variables
  3. Dim Shell, DesktopPath, objFSO
  4. 'Création des variables
  5. Set Shell = CreateObject("WScript.Shell" )
  6. DesktopPath = Shell.SpecialFolders("Desktop" )
  7. Set objFSO = CreateObject("Scripting.FileSystemObject" )
  8. 'Supression du raccourci
  9. If objFSO.FileExists(DesktopPath & "\nas*.lnk" ) Then
  10. MsgBox "Ca marche !"
  11. objFSO.DeleteFile DesktopPath & "\nas*.lnk"
  12. End If
  13. REM If objFSO.FileExists(DesktopPath & "\nav*.lnk" ) Then
  14. REM objFSO.DeleteFile DesktopPath & "\nav*.lnk"
  15. REM End If
  16.  
  17. end sub


 
merci d'avance de votre aide  
 
nicogef

Reply

Marsh Posté le 28-04-2014 à 20:45:55   

Reply

Marsh Posté le 29-04-2014 à 00:12:19    

 
          Bonjour,
 
          c'est normal car comme indiqué dans sa documentation, la méthode  FileExists  ne supporte pas les caractères joker …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed