Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hackoofr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[maikess]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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/