bonjour,

j'ai developpé ce petit programme que je lance à partir d'un batch et qui se contente d'effacer le raccourci internet explorer de la quicklaunch sur tous les profils d'un poste.

ce que je ne comprend pas: quand j'execute le batch une 1ere fois il ne se passe rien, mais si je le re execute une deuxieme fois il efface bien le raccourci comme je lui demande...

help et merci d'avance si vous connaissez une raison à cela

mon code:

Try

Dim ListeProfil AsString() = Directory.GetDirectories("C:\Documents and Settings\")

ForEach Profil AsStringIn ListeProfil

Dim raccourci AsNew FileInfo(Profil & "\Application Data\Microsoft\Internet Explorer\Quick Launch\Démarrer Internet Explorer.lnk")

If raccourci.Exists = TrueThen

raccourci.Delete()

EndIf

Next

Catch ex As Exception

MsgBox(ex.Message)

EndTry

_____________
 (débutant inside)

Aah ce bon vieux "If Condition = True Then", tout le monde y passe ;-)
("If raccourci.Exists = True Then" est strictement équivalent à "If raccourci.Exists Then")

Tu es sur que ce n'est pas simplement un problème de rafraichissement ?
Essaie de l'exécuter une fois, puis chippote un peu, rafraichis le bureau voir s'il ne le vire pas, peut-être que c'est le second accès au dossier (2e exécution) qui déclencherait ce rafraichissement...

Sinon tu n'as qu'à l'exécuter deux fois dans le batch :D
(Bon ca va je sors...)

---

Julien.

ok admettons que le = true ne soit pas necessaire... c'est de tout façon pas bien grave...

mon prob est idem si j'utilise my.computer.filesystem.deletefile(...)

ça me gave d'etre bloqué par ce genre de connerie
_____________
 (débutant inside)

Salut,

as tu essayer de temporiser entre chaque suppresion ?
avec
Application.DoEvents()
ou
System.Threading.Thread.Sleep(200)

est ce que tu passe bien ans chaque "Exists" ?

a++
seb

Développement Rapide PHP / VBNET -> www.database2code.com

tu as vu juste aserf.
je l'avais deja trouvé depuis hier soir en testant effectivement de rajouter un sleep entre chaque profil utilisateur,
j'ai également affiné en demandant au programme de zapper les profils "all users" + "localservice" + "networkservice"
berf sujet clos !
merci.

_____________
 (débutant inside)