script VBS pour la suppression d'un fichier caché

Bonjour, veuillez m'aider à corriger le script ci-dessous car il ne marche pas. en fait je supprimer automatiquement de façon transparente à l'utilisateur le fichier outlook.NK2. c'est un fichier caché dans repertoire caché (application data).

Code:

---

1 2 3

Dim dfo Set dfo = CreateObject("Scripting.FileSystemObject") dfo.DeleteFile("C:\Documents and Settings\votre-login\Application Data\Microsoft\Outlook\Outlook.NK2")

---

en remplaçant votre_login par mon login, l'exécution en local sur mon poste ne marche pas , jai l'erreur : permission refusée.
merci

Citation:

---

Envoyé par maikess

Bonjour, veuillez m'aider à corriger le script ci-dessous car il ne marche pas. en fait je supprimer automatiquement de façon transparente à l'utilisateur le fichier outlook.NK2. c'est un fichier caché dans repertoire caché (application data).

Code:

---

1 2 3

Dim dfo Set dfo = CreateObject("Scripting.FileSystemObject") dfo.DeleteFile("C:\Documents and Settings\votre-login\Application Data\Microsoft\Outlook\Outlook.NK2")

---

en remplaçant votre_login par mon login, l'exécution en local sur mon poste ne marche pas , jai l'erreur : permission refusée.
merci

---

Salut, peut-être que le fichier est encours d'exécution :? ou bien il est protégé par le système et il ne te laisse pas le supprimer.
en revanche essaye ce code en espérant qu'il va t'aider ou bien t'aiguiller un peu ;)

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim fso,ws,AppData,Chemin Set ws = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") AppData = ws.ExpandEnvironmentStrings("%AppData%") Chemin= AppData & "\Microsoft\Outlook\Outlook.NK2" Msgbox Chemin ,64, "Message de vérification de chemin" If (fso.FileExists(chemin)) Then Set MyFile = fso.GetFile(chemin) MyFile.Delete end if

---

merci infiniment, ton script m'a beaucoup aidé. il fonctionne mais je l'ai modifié un peu afin de l'adapter à mes besoins.
car :
1.je veux qu'il supprime le fichier de façon transparente à l'utilisateur sans le demander une confirmation. pour cela jai effacé la ligne: Msgbox Chemin ,64, "Message de vérification de chemin"
2.jai aussi ajouter une clause ELSE afin de mettre fin au programme si le fichier n'existe.
le code est donc

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim fso,ws,AppData,Chemin Set ws = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") AppData = ws.ExpandEnvironmentStrings("%AppData%") Chemin= AppData & "\Microsoft\Outlook\Outlook.NK2" If (fso.FileExists(chemin)) Then Set MyFile = fso.GetFile(chemin) MyFile.Delete else WScript.Quit end if

---

sur la discussion : http://www.developpez.net/forums/d95...on-script-gpo/