Discussion :

[maikess]

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.

[mcm2010]

J'ai également le même problème et je voudrais savoir si une autre methode de suppression de fichier via GPO est possible?

[mcm2010]

J'ai également le même problème et je voudrais savoir si une autre methode de suppression de fichier via GPO est possible?

[jolatouf]

Bonjour,


Je pesne que tu devrais faire quelque chose du genre pas tester mais en gros c'est ce que j'ai compris.

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
18
19
20
21
 
Function Supprimer_NK2()
 Dim  objDossier, objFichier
 Dim Repertoire
 
  AppData = ws.ExpandEnvironmentStrings("%AppData%")
  Repertoire =  AppData & "\Microsoft\Outlook\" 
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objDossier = objFSO.GetFolder(Repertoire)
 
  If (objDossier.Files.Count > 0) Then
     For Each objFichier In objDossier.Files
        If (InStr(objFichier.Name, ".NK2")) Then
            Msgbox " Le fichier " & objFichier.Name & " va être supprimer !",64,"Fichier à Supprimer"
                objFichier.Delete
        End If
     Next
   End If
 
End Function

Si tu veux que certaine personne tu modifie

Code :

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

1
2
3
4
5
6
 
If (InStr(objFichier.Name, ".NK2")) Then
 
en 
 
If (InStr( objFichier.Name, ".NK2") And InStr( objFichier.Name, Nom_DE_LA_PERSONNE)) Then

bonne journée

Ps: J'avais pas vu la date peut être plus intérréssant ...