Tester la présence d'un raccourci sur le bureau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Tester la présence d'un raccourci sur le bureau

Eysinem

Bonjour,

J'ai crée un script testant la présence d'un raccourci sur le bureau et si c'est le cas il le supprime.

Le problème est que le raccourci n'a pas tout le temps le même nom, il n'y a que quelques lettres qui reviennent.
Donc j'ai mit une * mais cela ne fonctionne pas.

Par contre si je n'utilise pas le FileExists et que j’exécute directement le DeleteFile, cela fonctionne.

Auriez-vous une idée du pourquoi ?

Code :

Sub SupprRacc
'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 & "\ass*.lnk" ) Then
MsgBox "Ca marche !"
objFSO.DeleteFile DesktopPath & "\ass*.lnk"
End If
REM If objFSO.FileExists(DesktopPath & "\nav*.lnk" ) Then
REM objFSO.DeleteFile DesktopPath & "\nav*.lnk"
REM End If
End Sub

Message cité 1 fois

Publicité

Marc L

Bonjour, comme indiqué dans la documentation, FileExists vérifie l'existence d'un fichier, ne supporte donc pas les caractères génériques ‼

Eysinem

Merci, c'est logique ^^.

Je vais mettre un "On error Resume Next" comme ça j’aurai pas de message d'erreur.

Message édité par Eysinem le 05-03-2013 à 16:01:26

Fane1967

Bonjour,

Depuis peu, j'ai en charge une partie de l'administration système, type Ad 2008 R2, dans un hôpital.
Nouveau sur hardware, je suis à la recherche d'un script pour tester l'existence d'un répertoire, nommé dans mon cas "extensions" caché ci-dessous :
Chemin :
\\nom du user1\AppData\Roaming\Mozilla\Firefox\Profiles\fcjul3cx.Infirmier1\extensions ET encore
\\nom du user2\AppData\Roaming\Mozilla\Firefox\Profiles\ybnssfwk.Infirmier2\extensions
...
150 users et 5 profiles à chaque fois...

L'objectif est ensuite de copier un fichier *.xpi à chaque fois que ce nom de répertoire est trouvé.
L'objectif 2 serait de faire un erase du contenu avant de copier le NOUVEAU fichier *.xpi

En vous remerciant encore une fois pour les ressources que vous mettez à disposition.

Stéphane

Eysinem a écrit :

Code :

Sub SupprRacc
'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 & "\ass*.lnk" ) Then
MsgBox "Ca marche !"
objFSO.DeleteFile DesktopPath & "\ass*.lnk"
End If
REM If objFSO.FileExists(DesktopPath & "\nav*.lnk" ) Then
REM objFSO.DeleteFile DesktopPath & "\nav*.lnk"
REM End If
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Tester la présence d'un raccourci sur le bureau

Sujets relatifs
Detection ie10 bureau ou metro	Tester la couleur d'un pixel
tester une installation sur windows	[Access] Formulaire plusieurs enreg : signaler présence d'infos
[Javascript] Tester variable selon heur été / hiver	comment tester perte de focus de mon application VBNET
Tester le bon fonctionnement d'un formulaire de contact en local ?	[VBS] boucle do while not pour tester le mappage d'un lecteur
Comment tester la sécurité de son site ?	tester une api
Plus de sujets relatifs à : Tester la présence d'un raccourci sur le bureau

Page générée en 0.048 secondes