Bonjour à tous,
j'avais éditer le script ci-dessous afin de supprimer le fichier outlook.NK2. ce fichier est le cache des contacts Outlook. mais je me suis rendu compte que le nom du fichier varie d'un systéme à un autre. c'est soit outlook.NK2 ou login_utilisateur.NK2.
je voudrais donc modifier le script de sorte qu'il s'execute s'il trouve un fichier d'extention .NK2 qui a le mem mon avec le profile de l'utilisateur ou qui se nomme outlook.NK2.

je vous prie de m'apporter votre aide. merci.

NB: je fais mes premiers pas en VBS.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim fso, ws, AppData, Chemin, MyFile
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Chemin = AppData & "\Microsoft\Outlook\*.NK2"
If (fso.FileExists(Chemin)) Then
        Set MyFile = fso.GetFile(Chemin)
        If (MyFile.datecreated < "#20/07/2010#") Then
		Msgbox " Le fichier " & MyFile.name & " va être supprimer !",64,"Fichier à Supprimer"
                MyFile.Delete
               else
               Msgbox "Rien à supprimer"
        End If
Else
Msgbox "n'existe pas"
WScript.Quit
End If
merci pour ton aide.