Nettoyer les déchets d'OpenOffice

Pourquoi ?

Les profils sont limités à 30 Mo et pourtant il arrive que certain utilisatreurs depassent ce seuil sans que le bureau soit rempli de fichiers.

openOffice stocke ces fichiers temporaires dans application data/openoffice.org2/user/backup

Lorsque OpenOffice plante (ça arrive) les fichiers restent dans backup, pour peuque l'on travail sur gros fichier (raport de stage, diaporama) et l'on dépasse vite les 30 Mo.

Principe :

On a donc décider de supprimer les fichiers à la connexion de l'utilisateur, considérant que s'il a fermé sa session, il ne comptait plus récupérer ses fichiers.

On peut compléter ce script en testant la taille de backup et en proposant, via une boite de dialogue, à l'utilisateur de nettoyer sont profil

Const APPLICATION_DATA = &H1a&
Set oFichier = CreateObject("Scripting.FileSystemObject")
Set objShell = WSCript.CreateObject("WSCRIPT.Shell")
Set objFolder = objShell.Namespace(APPLICATION_DATA)
Set objFolderItem = objFolder.Self
strAppdataOo = objFolderItem.Path &"\OpenOffice.org2\user\backup"

If oFichier.FolderExists(strAppdataOo) Then
  oFichier.DeleteFile(strAppdataOo & "\*.*"), DeletereadOnly
End IF