%userprofile% (variable windows) et vbs

bonsoir,

Je cherche à utiliser les variables windows dans des petits scripts vbs. Quelqu'un saurait il m'aider car çà ne fonctionne pas pour l'instant.

merci.

Code:

---

1 2 3 4 5 6 7 8

DeleteFile "%userprofile%\test.txt"   Function DeleteFile(WhatFile) on Error Resume Next dim fso set fso=createobject("Scripting.Filesystemobject") fso.DeleteFile(WhatFile) End Function

---

Code:

---

1 2 3 4 5 6 7 8 9

set WshShell = WScript.CreateObject("WScript.Shell") DeleteFile WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Favoris\test.url")   Function DeleteFile(WhatFile) on Error Resume Next dim fso set fso=createobject("Scripting.Filesystemobject") fso.DeleteFile(WhatFile) End Function

---

good :)