[résolu] [vbs] Problème pour effacer des fichiers

Problème pour effacer des fichiers [résolu] [vbs] - VB/VBA/VBS - Programmation

Marsh Posté le 28-11-2008 à 12:04:05    

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 :
  1. option Explicit
  2. On Error Resume Next
  4. dim numero_user
  5. dim FolderPath
  6. dim objFSO
  7. dim objFolder
  8. dim colFiles
  9. Dim objFile, objFileLog
  10. Dim i
  11. Dim LogFile
  13. LogFile = "C:\droits_home\clear_rep_outlook_log.txt"
  15. For i = 1 To 1601
  16. If i < 10 Then
  17.  numero_user = "000" & i
  18. ElseIf i < 100 Then
  19.  numero_user = "00" & i
  20. ElseIf i < 1000 Then
  21.  numero_user = "0" & i
  22. Else
  23.  numero_user = i
  24. End If
  26. Set objFSO = CreateObject("Scripting.FileSystemObject" )
  27. Set objFileLog = objFSO.CreateTextFile(LogFile)
  28. Set objFileLog = objFSO.OpenTextFile(LogFile, 2)
  29. Set objFolder = objFSO.GetFolder("e:\user_home\user" & numero_user & "_h\outlook" )
  31. Set colFiles = objFolder.Files
  32. For Each objFile in colFiles
  33.  If Right(objFile.Name, 4) <> ".pst" Then
  34.   If Right(objFile.Name, 4) <> ".pab" Then
  35.    objFileLog.WriteLine objFile.Path
  36.    FSO.DeleteFile(objFile.Path)
  37.   End If
  38.  End If
  39. '     Wscript.Echo objFile.Name
  40. Next
  41. Next


Merci.
Cyril.


Message édité par cbo59 le 01-12-2008 à 11:10:59

---------------
http://kar-vastor.labrute.com
Reply

Marsh Posté le 28-11-2008 à 12:04:05   

Reply

Marsh Posté le 01-12-2008 à 10:09:32    

Bon, je viens de trouver 2 erreurs:
la première, ligne 36: ce n'est pas:
   FSO.DeleteFile(objFile.Path)
mais
   objFSO.DeleteFile(objFile.Path)
 
la deuxième: les fichiers sont en readonly, je dois donc utiliser (d'après ce que mes recherches ont données) une option Force.
Pour l'instant j'y arrive pas, il me crée une erreur de paramètre mais je vais continuer de chercher et d'essayer.
Si quelqu'un a déjà utilisé cette option, j'aimerais bien connaitre la syntaxe.
Merci.
 
Cyril.


---------------
http://kar-vastor.labrute.com
Reply

Marsh Posté le 01-12-2008 à 11:10:31    

Bon, ça aidera peut-être quelqu'un:
J'ai créé une variable lecture_seule, je l'ai initialisée à True et la syntaxe est :
   objFSO.DeleteFile objFile.Path, lecture_seule
 
Voilà.
 
Cyril.


---------------
http://kar-vastor.labrute.com
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed