VBS: caractère joker inutilisable !?!Résolu

Question

Bonjour à toutes et à tous, Débutant avec le VBS je coince sur un problème de caractère joker. J'ai donc le code suivante qui me permet de lister les raccourcis présent sur le bureau et d'en supprimer un en particulier. <...> If ObjFolder.Name = "toto" then <...> Mon problème état que je ne peux pas utiliser de caractères joker du type: ObjFolder.Name = "*" & "toto" & "*" Quelqu'un aurait il l'explication à cela ? D'avance merci.

kalobit · Accepted Answer

essaye avec instr(), &#231;a devrait donner quelquechose comme &#231;a

if instr(objfolder.name,"toto") <>0 then
   objfolder.delete
end if

en option, utilise ucase pour &#233;viter les pb de casse

++ [mailto:K@lo K@lo]++

cs_etniqs · Answer

et avec &#231;a ? 

ObjFolder.Name = chr(42) &  "toto" & chr(42)

N_Olive · Answer

Ben nop, a marche p&#244;a &#231;a ...

Mais chr(42) ... c'est le code ascii de la touche * ?

cs_JMO · Answer

Bonjour 

'cr&#233;ation raccourci bureau
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\MonRaccourci.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "Ctrl+Alt+e"
'oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Description = "Icone bureau jean-marc"   'commentaire icone
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save



'cr&#233;ation raccourci bureau avec ouverture programme
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\UnRaccourciBureau.lnk")
link.Arguments = "1 2 3"
link.Description = "raccourci test"
'link.HotKey = "CTRL+ALT+MAJ+X"
link.IconLocation = "D:\eMule\eMule.exe,1"
link.TargetPath = "D:\eMule\eMule.exe"
link.WindowStyle = 3
link.WorkingDirectory = "e:\eMule"
link.Save


wscript.quit
'suppression d un raccourci
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
DesktopPath = Shell.SpecialFolders("Desktop")
FSO.DeleteFile DesktopPath & "\Shortcut MonRaccourci.lnk"
Set FSO = Nothing

et voil&#224;.....

cs_JMO · Answer

Bonjour 

Sorry cette r&#233;ponse n'est pas pour ce post

N_Olive · Answer

Merci &#224; K@lo c'est tout &#224; fiat la fonction qu'il me fallait pour &#231;a :p

J'arrive donc &#224; rep&#233;rer les raccourcis bureau fait main gr&#226;ce au nom, ou bien l'@ ip, du serveur sur lequel ils pointe (concernant un produit web).

VBS: caractère joker inutilisable !?!

6 réponses

Discussions similaires