Bonjour,
Je viens d'écrire un script pour effacer les fichiers qu'Outlook "oublie" d'effacer et qui finissent par prendre pas mal de place.
Mon problème est que le script me liste bien tous les fichiers sauf les .pab et les .pst, mais il ne les efface pas.
J'ai pourtant suivi l'aide et il ne me sort pas d'erreur 
.
Quelqu'un verrait-il quelque-chose qui cloche dans mon script ???
Code :
- option Explicit
- On Error Resume Next
- dim numero_user
- dim FolderPath
- dim objFSO
- dim objFolder
- dim colFiles
- Dim objFile, objFileLog
- Dim i
- Dim LogFile
- LogFile = "C:\droits_home\clear_rep_outlook_log.txt"
- For i = 1 To 1601
- If i < 10 Then
- numero_user = "000" & i
- ElseIf i < 100 Then
- numero_user = "00" & i
- ElseIf i < 1000 Then
- numero_user = "0" & i
- Else
- numero_user = i
- End If
- Set objFSO = CreateObject("Scripting.FileSystemObject" )
- Set objFileLog = objFSO.CreateTextFile(LogFile)
- Set objFileLog = objFSO.OpenTextFile(LogFile, 2)
- Set objFolder = objFSO.GetFolder("e:\user_home\user" & numero_user & "_h\outlook" )
- Set colFiles = objFolder.Files
- For Each objFile in colFiles
- If Right(objFile.Name, 4) <> ".pst" Then
- If Right(objFile.Name, 4) <> ".pab" Then
- objFileLog.WriteLine objFile.Path
- FSO.DeleteFile(objFile.Path)
- End If
- End If
- ' Wscript.Echo objFile.Name
- Next
- Next
|
Merci.
Cyril.
Message édité par cbo59 le 01-12-2008 à 11:10:59
---------------
http://kar-vastor.labrute.com
